Определить, чему равняется произведение цифр числа: четному числу или нечетному (использовать функцию) - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

4)2. Чему равняется произведение цифр числа четному числу или нечетному (ис-пользовать функцию)

Решение задачи: «Определить, чему равняется произведение цифр числа: четному числу или нечетному (использовать функцию)»

textual
Листинг программы
Var
  i : Integer;
 
Function Odd2(n : Longint) : Boolean; {true - четное}
Begin
  If n>0 then Odd2:=(not Odd(n mod 10)) or Odd2(n div 10) else Odd2:=False;
end;
 
Begin
  For i:=10 to 200 do Writeln(i,Odd2(i):8);
end.

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

  1. В коде используется язык программирования Pascal ABC.
  2. В коде определена функция Odd2, которая принимает на вход целое число n и возвращает логическое значение true, если число четное, и false, если число нечетное.
  3. Внутри функции Odd2 используется оператор модуля (mod) для определения последней цифры числа n.
  4. Внутри функции Odd2 используется оператор деления (div) для определения оставшихся цифр числа n.
  5. Если число n больше нуля, то функция Odd2 возвращает значение, противоположное значению функции Odd, которая проверяет, является ли последняя цифра числа нечетной.
  6. Если число n меньше или равно нулю, то функция Odd2 возвращает значение false.
  7. В основной части программы определен цикл от 10 до 200, в котором вызывается функция Odd2 для каждого числа и выводится результат на экран.
  8. Каждый вызов функции Odd2 оформлен в виде записи в журнал с указанием номера строки и значения функции Odd2 в 8-ми разрядах.

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

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