Pagini recente » Cod sursa (job #2503476) | Cod sursa (job #104532) | Cod sursa (job #2918614) | Cod sursa (job #2075421) | Cod sursa (job #8367)
Cod sursa(job #8367)
var s:longint;
n:byte;
nr:longint;
procedure citire;
begin
assign(input,'1-sir.in');
reset(input);
readln(n,s);
close(input);
end;
procedure prel(vf:integer;su:longint);
begin
if vf=n+1 then
begin
if su=0 then
nr:=(nr+1) mod 194767;
end
else
begin
prel(vf+1,su+vf);
prel(vf+1,su-vf);
end;
end;
begin
assign(output,'1-sir.out');
rewrite(output);
citire;
prel(n,s);
writeln(nr);
close(output);
end.