Заданы два натуральных числа. Определить, являются ли среднее арифметическое этих чисел целым числом - 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
- Вывод соответствующего сообщения в зависимости от результата сравнения
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д