viet chuong trinh tinh:,........pascal?
nhap vao n. tinh tong 1!!-2!!+...+(-1)^(n-1)*n!!
biet n!! la`:
*neu n le thi n!!=1*3*5..n
*neu n chan thi n!!=2*4*6..n
uses crt;
var n,i,gt,j,s,dau:longint;
begin
clrscr;
write('n=');readln(n);
s:=0;
for i:=1 to n do
gt:=1;
if i mod 2= 0 then
begin j:=2;dau:=-1; end
else begin j:=1; dau:=1; end;
while j<=i do
gt:=gt*j;
j:=j+2;
end;
s:=s+gt*dau;
write('GT=',s);
readln;
end.
Copyright © 2024 VQUIX.COM - All rights reserved.
Answers & Comments
Verified answer
uses crt;
var n,i,gt,j,s,dau:longint;
begin
clrscr;
write('n=');readln(n);
s:=0;
for i:=1 to n do
begin
gt:=1;
if i mod 2= 0 then
begin j:=2;dau:=-1; end
else begin j:=1; dau:=1; end;
while j<=i do
begin
gt:=gt*j;
j:=j+2;
end;
s:=s+gt*dau;
end;
write('GT=',s);
readln;
end.