SaveText.Ru

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

Share with your friends:

Print