Cod sursa(job #722705)
| Utilizator |  Graur Maria mgraur |
Data | 24 martie 2012 18:07:49 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.16 kb |
var i,n,k,x:integer;
begin
read(k);
i:=5;
n:=1;
while n<k do begin i:=i+5; x:= i; while x mod 5=0 do begin n:=n+1 ; x:= x div 5;end; end;
write(i);
end.