Помогитe составить программу ** Free Pascal. Дано натуральное число. Верно ли, что...

Question

Помогитe составить программу на Free Pascal.
Дано натуральное число. Верно ли, что произведение его цифр не больше 50

Comments

а в чем конкретно проблема то?

---

Например в том, что это число может быть равно 1111111111111111111111111111111111111111111111111.....

---

В задании не оговорена длина числа. А если оно равно 1+10^100 ?

Answer 1

Если число не слишком большое, то:
var n,p:integer;
begin
write('n = ');
readln(n);
p:=1;
while n>0 do
 begin
 p:=p*(n mod 10);
 n:=n div 10;
 end;
if p<=50<br> then writeln('Произведение цифр числа = ',p,' (<= 50)')<br> else writeln('Произведение цифр числа = ',p,' (> 50)');
end.

Пример:
n = 456
Произведение цифр числа = 120 (> 50)

Comments

можно проверку делать прямо в цикле

---

Можно