Cod sursa(job #1075850)
| Utilizator |  Neacsu Steafn steffy02 |
Data | 9 ianuarie 2014 17:34:49 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.22 kb |
var p,i,x,j,m:longint;
f,g:text;
l:boolean;
begin
assign(f,'fact.in'); reset(f);
assign(g,'fact.out');rewrite(g);
read(f,p);
X:=5*P;
J:=X DIV 25;
WRITE(g,5*(P-J+1));
close(f); close(g);
end.
