Решите пожалуйста я не понимаю что там сделать

0 голосов
18 просмотров

Решите пожалуйста я не понимаю что там сделать


image

Информатика (24 баллов) | 18 просмотров
Дан 1 ответ
0 голосов

1)
var
a,b:integer;
begin
write('Введите A=');read(a);
write('Введите B=');read(b);
writeln('Сумма двух чисел=',a+b);
writeln('Разность двух чисел=',a-b);
writeln('Произведение двух чисел=',a*b);
writeln('Частное модулей=',abs(a)/abs(b):5:2);
end.
2)
var
l,m:integer;
begin
write('Введите значение L=');read(l);
m:= l div 100;
write('Полных метров=',m);
end.

(1.7k баллов)