Вычислить Паскаль

[kasik]

Вычислить
π/2 = (2/1) * (2/3) * (4/3) * (4/5) * (6/5) * (6/7) * ...
Взять сто сомножителей.

помогите

[nikita33321]

Если не ошибаюсь то вот так:

s:=0; // summa
n:=100 // столько множителей
num:=2;
num2:=1;
kol:=2;// счетчик когда стоит увеличивать числ и знам
// первый проход
s:=num/num2;
for i:=1 to n do
begin
  if k=2 then
  begin
  num:=num+2;
  num2:=num2+2;
  k:=0;
  end;
k:=k+1;
s:=s*(num/num2);
end;