Заданы два натуральных числа. Определить, являются ли среднее арифметическое этих чисел целым числом - PascalABC.NET
Формулировка задачи:
Заданы два натуральных числа. Определить, являются ли среднее арифметическое этих чисел целым числом
ЧЕРЕЗ ОПЕРАТОР CASE
Решение задачи: «Заданы два натуральных числа. Определить, являются ли среднее арифметическое этих чисел целым числом»
textual
Листинг программы
begin
var a := ReadLnInteger('a =');
var b := ReadLnInteger('b =');
case odd(a) = odd(b) of
true : WriteLn('Да');
false : WriteLn('Нет');
end;
end.
Объяснение кода листинга программы
- Ввод двух натуральных чисел с помощью функции ReadLnInteger
- Определение функции odd, которая проверяет, является ли число нечетным
- Проверка, равны ли функции odd от a и b
- Вывод соответствующего сообщения в зависимости от результата сравнения