+ 1010110101
101111001
10000101110
Текила,что тут не понятного?
Коавиатура - текстовая информация
Монитор-графическая информация(но не даю 100%гаранта)
Принтер-графическая
Микрофон-звуковая
Акустические колонки-звуковая
Веб камера- видео информация
Сканер графическая(вроде)
Var i,p,k:integer;
begin
k:=0; p:=1; i:=2;
while p<200 do
begin
p:=p*i;
k:=k+1;
i:=i+2;
end;
writeln('k = ',k);
end.
Результат:
k = 4