Найти произведение всех цифр в строке - Pascal ABC
Формулировка задачи:
Дана строка. Найти произведение всех цифр в данном предложении.
Спасибо за внимание!
Решение задачи: «Найти произведение всех цифр в строке»
textual
Листинг программы
p:=1; k:=0; for i:=1 to length(s) do if s[i] in ['1'..'9'] then begin p:=p*(ord(s[i])-ord('0')); k:=1; end; if k=0 then p:=0; write(p);
Объяснение кода листинга программы
В данном коде на языке Pascal ABC происходит следующее:
- Переменная p инициализируется значением 1.
- Переменная k инициализируется значением 0.
- Запускается цикл for, который проходит по каждому символу в строке s.
- Внутри цикла проверяется, является ли текущий символ цифрой от 1 до 9.
- Если символ является цифрой, то переменная p умножается на произведение этого символа и его порядкового номера (от 0 для '0' до 9 для '9'). Переменная k инициализируется значением 1.
- Если значение переменной k становится равным 0, то переменная p инициализируется значением 0.
- По завершении цикла выводится значение переменной p.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д