Факториал, Ну вот так сказать перенёс Опции

[Cheburashka]

А вот не могли бы Вы сказать мне каким образом можно найти последнюю ненулевую цифры любого факториала??? Я попытался решить такую задачку сохраняя последние 6 цифр его, и последовательно удаляя все нули) Но вот только после значений Х>99 там уже начинаются проблемы)))

program metro;
  var N,F,R:longint;
begin
  assign (input,'input.txt');
  reset (input);
  assign (output,'output.txt');
  rewrite (output);
  Read (N);
  F:=1;
  R:=1;
  While R<=N do
    Begin
      F:=F*R;
      R:=R+1;
      If F mod 10=0 then Begin
                           F:=F div 10;
                           If F mod 10=0 then F:=F div 10
                         End;
      If F>999999 then F:=F mod 10;
    End;
  If F mod 10<>0 then Write (F mod 10)
                 else Write (F mod 10);
End.

[Lapp]

найти последнюю ненулевую цифры любого факториала??? [болд мой - Lapp]

Выразись, пожалуйста, поточнее. Одну цифру? несколько?

[Cheburashka]

Извиняюсь одну последнюю ненулевую цифрУ...

[Lapp]

одну последнюю ненулевую цифрУ

Надо подумать..
Логично просто отбрасывать все, кроме этой цифры: и нули, и все, что перед ней. Вроде, все должно быть ок..

Типа вот так:

f:=1;
for i:=1 to n do begin
  f:=f*i;
  while (f mod 10)=0 do f:=f div 10;
  f:=f mod 10
end;

А что значит "любого факториала"? Какие-то ограничения все же должны быть. Это решение, например, годится для факториалов чисел примерно до 3000.

[Cheburashka]

А вот мне не помешало бы сделать решения для нахождения для N<9999...

Ну в общем то я таким и сдеалал...

[Cheburashka]

Ха, оказалось так просто =))

Я переделал чуть-чуть решение и вот что у меня получилось)

program metro;
  var N,F,i:longint;
begin
  Read (N);
  F:=1;  
  for i:=1 to n do
    begin
      f:=f*i;
      while (f mod 10)=0 do
        f:=f div 10;
      f:=f mod 10000;
    end;
  Write (F mod 10);
End.