Факториал Опции

[Dik]

на сколько нулей заканчивается n! ????

[volvo]

zx1024

Не работает ...

Но вот какой алгоритм я нашел:
Если выписать все n сомножителей и разложить их на простые множители, то каждая пара 2 и 5 даст ровно один ноль. Пятерок будет меньше, чем двоек, поэтому достаточно проследить за ними. Одна пятерка встретится в каждом пятом числе, еще одна - в каждом двадцать пятом и т.д. Отсюда формула:

Число нулей в N! = [N/5] + [N/25] + [N/125] + ...

Код

var
 n, x, s: integer;
begin
 s := 0;
 write( 'n> ' ); readln(n);

 x := 5;
 while x <= n do
   begin
     inc(s, n div x);
     x := x * 5
   end;

 writeln(s, ' zeroes');
end.

Сообщение отредактировано: volvo - 2.11.2004 15:29