Программа для Pascal ABC

С клавиатуры вводится 2 числа, если они оба четные, то найти их разность, иначе вычислить сумму модулей

Question

Информатика

Максюта

26 апреля, 02:27

Программа для Pascal ABC

С клавиатуры вводится 2 числа, если они оба четные, то найти их разность, иначе вычислить сумму модулей

+5

Ответы (1)

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

Катюха · Answer 1

Var one, two, res: integer;

begin

write ('Введите первое и второе число: ') ;

read (one, two) ;

if (one mod 2 = 0) and (two mod 2 = 0) then

res:=one-two

else

res:=abs (one) + abs (two) ;

writeln (res)

end.

Программа для Pascal ABCС клавиатуры вводится 2 числа, если они оба четные, то найти их разность, иначе вычислить сумму модулей

Программа для Pascal ABC

С клавиатуры вводится 2 числа, если они оба четные, то найти их разность, иначе вычислить сумму модулей