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