3. Кестені қажетті ақпараттармен толтырыңдар (1.3-кесте). 1.3-кесте
Адам
Кметі
КОМПЬЮТЕР
Ақпаратты сақтау
Ақпаратты өңдеу
Ақпаратты қабылдау
Енгізу құрылғысы
Ақпаратты жіберу
Сөз, қозғалтқыш
жүйелері​

блок електричного живлення;

■ материнська плата, на якій знаходяться процесор, оператив­на пам’ять, звукова, відео та мережна карти;

■ допоміжні відділення, в яких знаходяться вінчестер, пристрій для читання та запису дисків;

■ передня панель, на якій знаходяться кнопки ввімкнення та перезавантаження, світлові індикатори (лампочки), порти для USB підключень, навушників, мікрофона та ін. Слід зауважити, що порти (гнізда) для під’єднання кабелю живлення та більшості пристроїв знаходяться на задній стінці системного блоку

Program z18;  Var a: array [1..1000] of string; i,j,l,min,h:integer; s:string;Begin  write('Введите строку - '); readln(s);  l:=s.Length;  i:= 1;  j:= 1;    while i <= l do  begin    while (s[i] <> ' ') and (i <= l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i > l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 2;  min:=a[1].Length;  while (a[i] <> '') do  begin    l:=a[i].Length;    if (l < min) then h:= i;    i:= i + 1;  end;  writeln(a[h]);End.

Program z19;  Var a: array [1..1000] of string; i,j,l,min:integer; s:string;Begin  write('Введите строку - '); readln(s);  l:=s.Length;  i:= 1;  j:= 1;    while i <= l do  begin    while (s[i] <> ' ') and (i <= l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i > l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 1;  while (a[i] <> '') do  begin    if ((a[i] = 'мое') or (a[i] = 'Мое')) then a[i]:= 'наше';    write(a[i], ' ');    i:= i + 1;  end;End.