Определить произведение нечетных цифр числа - 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.

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

Код выполняет следующие действия:

  1. Ввод числа N с помощью функции ReadLnString.
  2. Инициализация переменной P единицей.
  3. Цикл по каждой цифре числа N.
  4. Проверка, является ли текущая цифра допустимой (от '0' до '9').
  5. Если текущая цифра не является допустимой, выводится сообщение об ошибке и выполнение программы останавливается.
  6. Если текущая цифра является нечетной, то она умножается на P.
  7. Вывод произведения нечетных цифр числа N.

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


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

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

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