Question

Viết chương trình tính n!!(Giai thừa kép) với n!! được định nghĩa như sau:

-n!! = 1 với n = 0

-n!! =1.3.5...n với n lẻ

-n!! = 2.4.6....n với n chẵn

Yêu cầu: Sử dụng vòng lặp với số lần chưa biết trước:

- Hai số chẵn liên tiếp hơn kém nhau 2. Hai số lẻ liên tiếp cũng vậy.

- Thực hiện tính như giai thừa đơn nhưng với bước nhảy là 2.

Giúp mình đi pls

Answer 1

uses crt;
var n,i:integer;
gt:int64;
begin
clrscr;
write('n='); readln(n);
if n=0 then gt:=1;
if n mod 2=1 then
begin
gt:=1;
i:=1;
while (i<=n) do
begin
gt:=gt*i;
i:=i+2;
end;
end;
if (n mod 2=0) and (n>0) then
begin
gt:=1;
i:=2;
while (i<=n) do
begin
gt:=gt*i;
i:=i+2;
end;
end;
writeln('giai thua kep cua ',n,' la: ',gt);
readln;
end.

Answer 2

uses crt;
var n,i:integer;
gt:int64;
begin
clrscr;
write('n='); readln(n);
if n=0 then gt:=1;
if n mod 2=1 then
begin
gt:=1;
i:=1;
while (i<=n) do
begin
gt:=gt*i;
i:=i+2;
end;
end;
if (n mod 2=0) and (n>0) then
begin
gt:=1;
i:=2;
while (i<=n) do
begin
gt:=gt*i;
i:=i+2;
end;
end;
writeln('giai thua kep cua ',n,' la: ',gt);
readln;
end.