Если два числа равны, то вывести их сумму, а иначе модуль разности

Question

Информатика

Иоанн

14 сентября, 02:02

Если два числа равны, то вывести их сумму, а иначе модуль разности

+4

Ответы (1)

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

Тоша · Answer 1

Program task;

var a, b:integer;

begin

write ('Введите числа : ') ;

read (a, b) ;

if a=b then writeln ('Сумму чисел = ', a+b)

else writeln ('Модуль разности = ', abs (a-b)) ;

end.