Cod sursa(job #17430)

Utilizator izso88istvan zsolt izso88 Data 15 februarie 2007 21:16:06
Problema 1-sir Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.57 kb
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.