Cod sursa(job #7101)

Utilizator fogabFodor Gabor fogab Data 21 ianuarie 2007 12:29:46
Problema 1-sir Scor 10
Compilator fpc Status done
Runda preONI 2007, Runda 1, Clasele 11-12 Marime 0.76 kb
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.