Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.