Введите с клавиатуры два целых числа. Выведите на экран сумму чисел, разницу между числами, квадрат разности между числами, частное и остаток от деления первого числа на второе

Question

Информатика

Ведя

16 сентября, 22:15

Введите с клавиатуры два целых числа. Выведите на экран сумму чисел, разницу между числами, квадрат разности между числами, частное и остаток от деления первого числа на второе

+2

Ответы (1)

Знаете ответ на вопрос?

Мстислав · Answer 1

Var

a, b: integer;

begin

readln (a, b) ;

writeln ('Сумма чисел: ', a+b) ;

writeln ('Разница между числами: ', abs (a-b)) ;

writeln ('Квадрат разности: ', sqr (a-b)) ;

writeln ('Частное: ', a div b) ;

writeln ('Остаток от деления первого на второе: ', a mod b) ;

end.