SaveText.Ru

Без имени
  1. begin
  2.   var n:=real('Введите четырехзначное натуральное число:');
  3. var p:=1;
  4. while n>0 do begin
  5. p:=p*(n mod 10);
  6. n:=n div 10
  7. end;
  8. Writeln('Произведение цифр числа равно ',p)
  9. end.

Share with your friends:

Print