Cod sursa(job #1075863)
| Utilizator |  Neacsu Steafn steffy02 |
Data | 9 ianuarie 2014 17:47:20 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.31 kb |
var p,i,x,j,m:longint;
f,g:text;
begin
assign(f,'fact.in'); reset(f);
assign(g,'fact.out');rewrite(g);
read(f,p);
X:=5*P;
J:=X DIV 25;
case p of
0: write(g,1);
1:write(g,-1);
2:write(g,10);
3:write(g,15);
4:write(g,20);
else WRITE(g,5*(P-J+1));
end;
close(f); close(g);
end.
