Cod sursa(job #525604)
| Utilizator |  porcescu gicu gicu_01 |
Data | 25 ianuarie 2011 16:39:30 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.32 kb |
var i,n,k,p:int64; f:text;
begin
assign(f,'fact.in');
reset(f);
readln(f,n);
close(f);
k:=5; p:=5; i:=1;
while i<n do
begin
k:=k+5;
inc(i);
if k div p=p then begin p:=k; inc(i); end;
end;
assign(f,'fact.out');
rewrite(f);
if i>n then writeln(f,'-1') else writeln(f,k);
close(f);
end.
