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

9 Мая 2020 в 19:40
160 +1
0
Ответы
1

program SumOrDifference;

var
num1, num2, result: integer;

begin
writeln('Enter the first number: ');
readln(num1);

writeln('Enter the second number: ');
readln(num2);

if (num1 mod 2 = 0) and (num2 mod 2 = 0) then
result := num1 - num2
else
result := abs(num1) + abs(num2);

writeln('Result: ', result);
end.

18 Апр 2024 в 12:31
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир