Nu aveti permisiuni pentru a descarca fisierul grader_test20.in
Cod sursa(job #482912)
| Utilizator |  Marin Tiberiu tibi9876 |
Data | 6 septembrie 2010 09:09:55 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.23 kb |
var p,x,i,c:longint;
begin
readln(p);
x:=0;
if p=0 then begin write(1); halt; end;
while i<p do
begin
x:=x+5;
c:=x;
while c mod 5=0 do
begin
c:=c div 5;
inc(i);
end;
end;
if i>p then write('-1') else
write(x);
end.