Faktoriāla nulles (*)

Faktoriāla nulles

ID: fanulles
Grūtība: 1/5
Laika limits: 1

Uzdevums

Naturāla skaitļa n faktoriālu (apzīmē «n!») aprēķina, sareizinot visus naturālos skaitļus no 1 līdz n :
n! = 1*2*…*(n-1)*n .

Uzrakstiet programmu, kas dotai n vērtībai nosaka, ar cik nullēm beidzas n faktoriāla pieraksts!

Ievaddati

Teksta faila fanulles.in vienīgajā rindā dots naturāls skaitlis – n vērtība (n<=10⁹).

Izvaddati

Teksta faila fanulles.out vienīgajā rindā jāizvada viens vesels skaitlis nuļlu skaits n! pieraksta beigās.

Piemērs

3

0

10

2

54321

13576

program fanulles;
var f:text; a,b,d:longint;
begin
assign(f,'fanulles.in');
reset(f);
readln(f,a);
close(f);

if a<5 then b:=0
else begin
 d:=5;
 while a>=d do
  begin
  b:=b+(a div d);
  d:=d*5;
  end;
end;

assign(f,'fanulles.out');
rewrite(f);
writeln(f,b);
close(f);
end.