Cod sursa(job #43041)
| Utilizator |  Vladulescu Adrian Adrian001 |
Data | 29 martie 2007 19:12:12 |
|---|---|---|---|
| Problema | 12-Perm | Scor | 55 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.29 kb |
Program cel;
var f,g:text;
n,i,a,b,c,d:longint;
Begin
Assign(f,'12perm.in');Reset(f);
Assign(g,'12perm.out');Rewrite(g);
Read(f,n);
a:=2;
b:=6;
c:=12;
For i:=5 to n do
Begin
d:=a+c+2*(i-2);
a:=b;
b:=c;
c:=d mod 1048576;
end;
Write(g,c);
Close(f);
Close(g);
end.
