Pagini recente » Cod sursa (job #3151242) | Cod sursa (job #248260) | Cod sursa (job #2081035) | Cod sursa (job #1632800) | Cod sursa (job #17430)
Cod sursa(job #17430)
const maxs=32768;
var t:text;
n,co,s,i:longint;
tomb:array[0..2*maxs,1..2] of {longint{}double;
begin
assign(t,'1-sir.in');
reset(t);
reaD(t,n);read(t,s);
s:=abs(S);
close(t);
for i:=1 to maxs do tomb[i,1]:=0;
tomb[1,1]:=1;
co:=2;
repeat
inc(co);
for i:=1 to maxs do
tomb[i,2]:=tomb[abs(i-co+1),1]+tomb[i+co-1,1];
for i:=1 to maxs do tomb[i,1]:=tomb[i,2];
until co=n;
assign(t,'1-sir.out');
rewrite(T);
writeln(t,tomb[s,1] mod 194767);
close(T);
end.