Заданы два натуральных числа. Определить, являются ли среднее арифметическое этих чисел целым числом - 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.

Объяснение кода листинга программы

  1. Ввод двух натуральных чисел с помощью функции ReadLnInteger
  2. Определение функции odd, которая проверяет, является ли число нечетным
  3. Проверка, равны ли функции odd от a и b
  4. Вывод соответствующего сообщения в зависимости от результата сравнения

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.923 из 5
Похожие ответы