Cod sursa(job #8369)
Utilizator | Bianca Boeriu girl_style | Data | 24 ianuarie 2007 18:09:15 |
---|---|---|---|
Problema | 1-sir | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.5 kb |
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.