Коавиатура - текстовая информация
Монитор-графическая информация(но не даю 100%гаранта)
Принтер-графическая
Микрофон-звуковая
Акустические колонки-звуковая
Веб камера- видео информация
Сканер графическая(вроде)
var
i, s: integer;
begin
s:= 0;
for i:= 50 to 100 do
if (i mod 2 = 0) and (i mod 3 = 0) then s:= s + i;
writeln(s);
readln;
end.
Var
i, s: integer;
begin
s := 0;
for i := 10 to 99 do
if i mod 2 = 0 then
s := s + i;
writeln(s);
end.
var a, b, c, s, r:integer;
begin
writeln('Введите 3 числа');
read(a, b, c);
s:=a+b;
r:=b-c;
writeln('Сумма 1-го и 2-го числа:',s);
writeln('Разность второго и третьего:',r);
<span>end.</span>
var
a: 1000..9999; //Четырехзначное число
a1, a2, a3, a4: 1..9;
begin
writeln('Введите четырехзначное число');
readln(a);
a1:= a mod 10; //Первая с конца цифра
a2:= (a mod 100) div 10; //Вторая с конца цифра
a3:= (a mod 1000) div 100; //Третья с конца цифра
a4:= a div 1000; //Четвертая с конца цифра
writeln('Сумма цифр данного числа: ', a1 + a2 + a3 + a4); //Сумма цифр
end.