Требуется написать программу при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10 в девятой степени, и выводится произведение цифр этого числа.
Требуется написать программу при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10 в девятой степени, и выводится произведение цифр этого числа.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.