Cod sursa(job #477693)
| Utilizator |  Ilie Andrei andreii1 |
Data | 15 august 2010 23:43:04 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.22 kb |
var f,g:text;
p,s,j:longint;
begin
assign(f,'fact.in');
assign(g,'fact.out');
reset(f);
read(f,p);
j:=0;
repeat
s:=s*p+p;
inc(j);
until j>=p;
if j>p then j:=-1;
rewrite(g);
write(g,s);
close(f);
close(g);
end.