Требуется написать программу при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10 в девятой степени, и выводится произведение цифр этого числа.

Question

Информатика

Ксения

25 ноября, 11:20

Требуется написать программу при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10 в девятой степени, и выводится произведение цифр этого числа.

+1

Ответы (1)

Знаете ответ?

Пава · Answer 1

uses crt;

var p, n:integer;

begin

p:=1;

write ('N=') ;

read (n) ;

while n>0 do begin

p:=p * (n mod 10) ;

n:=n div 10;

end;

writeln ('p=', p) ;

end.