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

Question

Информатика

Артём

9 декабря, 11:43

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

+2

Ответы (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.