[poli-smen]

Сообщение от chulkov

Ребя столкнулся с проблемной задачей нужна ваша помощь. Вот задача:
Для заданного числа n расчитать произведение:

n!! = (1*3*5*...n) - если n нечетное
n!! = (2*4*6*...n) - если n четное

помогите сделать тоже самое с помощью операторов while do и repeat until.

Пример через while:

Код:

  P := 1;
  while n > 0 do
  begin
    P := P * n;
    Dec(n, 2);
  end;