Cod sursa(job #1592393)
| Utilizator |  Prisac Alexandru prisacalexandru |
Data | 7 februarie 2016 16:13:24 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.31 kb |
Program factorial;
Type restrictie=1..100000000;
Var fi,fo:text;
p,i:restrictie;
n:int64;
Begin
assign(fi,'factorial.in');
assign(fo,'factorial.out');
reset(fi);
readln(fi,p);
close(fi);
rewrite(fo);
if p=1 then n:=5;
if p=2 then n:=10;
for i:=3 to p do n:=n+5;
Writeln(fo,n);
close(fo);
end.
