паскаль,функция

[narco3]

Y присвоить (х-2)(х-4)(х-6)...(х-32)/(х-1)(х-3)(х-5)...(х-31).как сделать ?

[Terran]

Вот:

Function Y(X: Integer): Integer;
Var
I,A,B: Integer;
Begin
A:=1;
B:=1;
I:=2;
Repeat
A:=A * (X - I);
I:=I + 2;
Until I = 34;
I:=1;
Repeat
B:=B * (X - I);
I:=I + 2;
Until I = 33;
Y:=A Div B;
End;


Var
S: Integer;
Begin
ReadLn(S);
WriteLn(Y(S));
ReadLn;
End.

Функцию конкретно не проверял. Возможны ошибки при делении на 0. Поэтому если что, то подправьте.

[arahis]

х:=выбери значение
y:=1;
z:=1;
while y<=31 do
begin
z:=z*(1-1/(x-y));
y:=y+1;
end;
writeln(z);

[narco3]

класно!!!Спасибо

[TinMan]

arahis, исправь только y:=y+1 на y:=y+2 ))

[arahis]

Ой потупил. Ну это же не мне зачет сдавать а этому человеку.