Question

Дано натуральное число N. Вычислить произведение его цифр. на Паскале.

Answer 1

Program 123;

Var n,s,i: integer;

Begin

Writeln('Введите число'); Readln(n);

While n=0 do begin

 S:=s*(n mod 10);

 N:=n div 10;

                          end;

Writeln('произведение цифр ',s);

end.