Программа для Pascal ABC С клавиатуры вводится 2 числа, если они оба четные, то найти их разность, иначе вычислить сумму модулей
Программа для 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.
Не нашли ответ?
Похожие вопросы