Определить произведение нечетных цифр числа - PascalABC.NET
Формулировка задачи:
С клавиатуры вводится длинное целое число, не менее 50 цифр. Определить произведение нечетных цифр данного числа.
Решение задачи: «Определить произведение нечетных цифр числа»
textual
Листинг программы
begin var N := ReadLnString('Введите целое большое число N ='); var P : biginteger := 1; foreach var C in N do if (C < '0') or (C > '9') then begin WriteLn('В введённой строке присутствуют лишние символы!'); Halt; end else if odd(StrToInt(C)) then P *= StrToInt(C); WriteLn('Произведение нечётных цифр = ', P); end.
Объяснение кода листинга программы
Код выполняет следующие действия:
- Ввод числа N с помощью функции ReadLnString.
- Инициализация переменной P единицей.
- Цикл по каждой цифре числа N.
- Проверка, является ли текущая цифра допустимой (от '0' до '9').
- Если текущая цифра не является допустимой, выводится сообщение об ошибке и выполнение программы останавливается.
- Если текущая цифра является нечетной, то она умножается на P.
- Вывод произведения нечетных цифр числа N.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д