Найти произведение цифр заданного 4-х значного числа

Question

Найти произведение цифр заданного 4-х значного числа

Answer 1

Способ 1

То, как нужно писать на PascalABC с его возможностями. Если Вас устрашает запись на пятой строке, то не стоит волноваться. Читаем с конца: превращаем число в строку (IntToStr), берём i-тую цифру (цикл будет идти с каждым умножением цифры на следующую), превращаем обратно цифру в строку и умножаем на имеющееся произведение.

Способ 2

Старый, затратный и некрасивый.

---

---

Comments

А вот оформление у меня в школе совсем иное9

---

В школе Вы выносите объявление всех переменных в блок var.

---

Так?

---

да

---

И в чём проблема?var inputNumber, resultNumber: integer;begin// удаляете в первых двух строчках varend.