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

Question

Информатика

Артём

6 сентября, 07:59

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

+1

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