Cod sursa(job #180824)
Utilizator | Neghina Cornel Grasutzu07 | Data | 17 aprilie 2008 16:18:03 |
---|---|---|---|
Problema | Pascal | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.56 kb |
var v:array[1..100] of integer;
i,n,j,r,d,q,o,p,z:integer;
f,g:text;
begin
assign(f,'pascal.in');
assign(g,'pascal.out');
reset(f);
rewrite(g);
readln(f,r,d);
q:=1;
o:=1;
p:=1;
for i:=1 to r do q:=q*i;{i!}
n:=r+1;
v[1]:=1;
v[n]:=1;
for j:=2 to n-1 do begin
p:=1;
for i:=1 to n-j do p:=p*i;{i-j!}
o:=o*(j-1); {j!}
z:=p*o;
v[j]:=q div z;
end;
for i:=1 to n do
if v[i] mod 2=0 then writeln(g,v[i]);
close(f);
close(g);
end.