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

Question

Информатика

Ангелина

9 июля, 20:31

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

+4

Ответы (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.