[NOCODE] Без имени

Без имени

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.

SaveText.Ru

Share with your friends:

Print