Cod sursa(job #394858)
Utilizator | Mihai Pojar Mihaicorneliu | Data | 11 februarie 2010 18:41:04 |
---|---|---|---|
Problema | Factorial | Scor | 5 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.34 kb |
program factorial;
var p,c,f:longint;
n:int64;
i,o:text;
begin
assign(i,'fact.in');
reset(i);
read(i,p);
n:=0;
repeat
n:=n+5;
c:=c+1;
if c mod 5=0 then
f:=f+1
until c+f>=p;
assign(o,'fact.out');
rewrite(o);
if c+f=p then
write(o,n)
else
write(o,'-1');
close(o);
end.