Дано натуральное число n. Нужно найти n!! для данных значений.

[Workout111]

Дано натуральное число n. n!! озночает 1*3*5...n для нечетного n и 2*4*6...n для четного n. Составить программу вычисления для n!!. Получить результаты при 1)n=10 2)n=13 3)n=22.

[Abstraction]

Вариант 1: проверить число на чётность и перемножать числа либо от 1, либо от 2 до n с шагом 2.
Вариант 2: перемножать числа от n, и пока очередной множитель не станет меньше 2.

[Serge_Bliznykov]

Вариант 2: перемножать числа от n, и пока очередной множитель не станет меньше 2.

позволю уточнить то, что Вы подразумевали, но кому-то это может быть не так очевидно.

Вариант 2: перемножать числа от n, уменьшая n с шагом 2, пока очередной множитель не станет меньше 2.

программка будет выглядеть так:

var n : integer;
   rez : LongInt;
begin
  WriteLn('Введите n');
  Readln(n);
  if n<0 then WriteLn('Ошибка, N должно быть положительным!')
  else begin
     rez := 1;
     while n>=2 do begin
        rez := rez * n;
        n := n - 2;
      end;
      WriteLn(' n!! = ', rez);
  end;
  Readln
end.

[Sasha_Smirnov]

При n = 22
n!! = 81749606400,
посему у меня вопрос: а достаточно ли лонг LongInt?

[Serge_Bliznykov]

Sasha_Smirnov, вы правы, совершенно недостоточен!
нужно или брать тип Int64, или, если это по каким-то соображения не подходит, реализовывать длинную арифметику.

[Sasha_Smirnov]

Я вот беру VBA и не парюсь. (Ну это так, чтоб знали, что есть что-то ещё!)

[Workout111]

не могли бы написать программу варианта 1, второй вариант не работает, числа совсем другие выходят...