Определить, чему равняется произведение цифр числа: четному числу или нечетному (использовать функцию) - 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.
Объяснение кода листинга программы
- В коде используется язык программирования Pascal ABC.
- В коде определена функция Odd2, которая принимает на вход целое число n и возвращает логическое значение true, если число четное, и false, если число нечетное.
- Внутри функции Odd2 используется оператор модуля (mod) для определения последней цифры числа n.
- Внутри функции Odd2 используется оператор деления (div) для определения оставшихся цифр числа n.
- Если число n больше нуля, то функция Odd2 возвращает значение, противоположное значению функции Odd, которая проверяет, является ли последняя цифра числа нечетной.
- Если число n меньше или равно нулю, то функция Odd2 возвращает значение false.
- В основной части программы определен цикл от 10 до 200, в котором вызывается функция Odd2 для каждого числа и выводится результат на экран.
- Каждый вызов функции Odd2 оформлен в виде записи в журнал с указанием номера строки и значения функции Odd2 в 8-ми разрядах.