Определить произведение нечетных цифр числа - PascalABC.NET

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

С клавиатуры вводится длинное целое число, не менее 50 цифр. Определить произведение нечетных цифр данного числа.

Решение задачи: «Определить произведение нечетных цифр числа»

Листинг программы

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.

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

9 голосов , оценка 4.111 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы