Pagini recente » Cod sursa (job #155311) | Cod sursa (job #463029) | Cod sursa (job #2849042) | Cod sursa (job #2871179) | Cod sursa (job #7191)
Cod sursa(job #7191)
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);
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.