Pagini recente » Cod sursa (job #2196760) | Cod sursa (job #3125387) | Cod sursa (job #3199458) | Cod sursa (job #3121805) | Cod sursa (job #7101)
Cod sursa(job #7101)
const p=194767;
var f:text;
n:integer;
t:longint;
s:int64;
function go(n:integer;s:longint):longint;
var h:longint;
begin
h:=(n*(n-1)) div 2;
if (s>h) or (s<-h) then go:=0
else if (s=h) or (s=-h) then go:=1
else if (n=1) then if (s=0) then go:=1
else go:=0
else go:=(go(n-1,s-n+1)+go(n-1,s+n-1))mod p;
end;
begin
assign(f,'1-sir.in');
reset(f);
readln(f,n,s);
close(f);
t:=(n*(n-1)) div 2;
if (s>t) or (s<-t) then begin
assign(f,'1-sir.out');
rewrite(f);
writeln(f,0);
close(f);
end else begin
t:=s;
t:=go(n,t);
assign(f,'1-sir.out');
rewrite(f);
writeln(f,t);
close(f);
end;
end.