Cod sursa(job #742409)

Utilizator ctlin04UAIC.VlasCatalin ctlin04 Data 29 aprilie 2012 23:34:16
Problema 12-Perm Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
Program perm12;
const md=1048575;
 var n,a,b,i,d:longint;
     c:int64;
     fi,fo:text;
begin
 assign(fi,'12perm.in');
  assign(fo,'12perm.out');
 reset(fi); rewrite(fo); readln(fi,n);
 a:=2; b:=6; c:=12;
   for i:=5 to n do begin d:=c; c:=(c+a+(i-2)*2) and md; a:=b; b:=d; end;
  write(fo,c);
 close(fo);
end.