SaveText.Ru
Add a new text
View all texts
Change language
English
Russian
Registration
SaveText.Ru
Без имени
begin
var n:=real('Введите четырехзначное натуральное число:');
var p:=1;
while n>0 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.
Share with your friends:
Print