Cod sursa(job #46254)

Utilizator cimiCristina Stancu-Mara cimi Data 2 aprilie 2007 14:04:26
Problema 1-sir Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.84 kb
const
  lim=65600;
  base=194767;
var
  p,q,n,s,nrmagic,i,j:longint;
  a:array[0..1,0..lim] of longint;
begin
  assign(input,'1-sir.in');
  reset(input);
  readln(n,s);
  s:=abs(s);
  close(input);
  assign(output,'1-sir.out');
  rewrite(output);
  if ((n*(n-1) div 2)mod 2)<>(s mod 2)
    then writeln('0')
    else
    begin
      nrmagic:=(n*(n-1)div 2 -s) div 2;
      if nrmagic<0
        then writeln('0')
        else
        begin
          a[0,0]:=1;
          p:=1;q:=0;
          for i:=1 to n-1 do
          begin
            p:=1-p;
            q:=1-q;
            fillchar(a[q],sizeof(a[q]),0);
            a[q]:=a[p];
            for j:=0 to nrmagic do
              if a[p,j]<>0 then a[q,j+i]:=(a[q,j+i]+a[p,j])mod base;
          end;
          writeln(a[q,nrmagic]);
      end;
    end;
  close(output);
end.