Cod sursa(job #85449)
| Utilizator |  Gavrila Vlad GavrilaVlad |
Data | 21 septembrie 2007 16:19:37 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.23 kb |
var n,i,j,k,p:int64;
begin
read(n);
if n=0 then writeln(1)
else
begin
repeat
i:=i+5;
k:=i;
while k mod 5=0 do
begin
p:=p+1;
k:=k div 5;
end;
until p=n;
writeln(i);
end;
end.