Составить программу, которая запрашивает четырехзначное число, и находит произведение цифр этого числа

1

Ответы и объяснения

Лучший Ответ!
2014-04-14T15:25:46+00:00
Program i7;
var
  i,n,k: integer;
begin
  writeln('vvedi 4etireh znachoe chislo');
  readln(n);
  k:=1;
  while n>0 do
      begin
         k:=k*n mod 10;
         n:=n div 10;
      end;
  writeln(k);
end.