Вычисление двойного факториала

@neolanta · Регистрация: 17.12.2013

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста,исправить ошибку.
Вычисление двойного факториала (2n+1)!! (например 9!!=9*7*5*3*1);
Код:

Pascal

PROGRAM PR;
USES CRT;
VAR N,I,k:INTEGER;
    P:longint;
BEGIN
CLRSCR;
WRITELN('INPUT N');READLN(N);
IF N=0 THEN WRITELN('O!=1') ELSE
IF N<0 THEN WRITELN('VVEDITE POLOGITELNOE CHISLO') ELSE
BEGIN
P:=1;
k:=2*n+1;
FOR I:=k downTO 1 DO begin
dec(i,2);
P:=P*k;
end;
WRITELN(P);
END;
READKEY;
END.

не правильно выводит ответ. Ввожу n=4, выводит 729, а должно быть 945!!!

@Samhain · 17.12.2013, 22:03

neolanta,

Pascal

var n,i:integer;
    f:longint;
begin
  write('n = ');readln(n);
  if n<0 then writeln('n>0!')
  else
  begin
    if n=0 then f:=1
    else
      begin
        f:=1; i:=1;
        repeat
          f:=f*i;
          inc(i,2);
        until i>n;
      end;
    writeln(n,'!! = ',f);
  end;
  readln
end.

Вы наверное хотели сказать n=9!!=945

Опции темы