clrscr;Mình có cách siêu rút gọn của pascal đây:

uses crt;

var n,t: extended;

i: longint;

begin

repeat

write('n=');read(n);

until n>0;

t:=1;

for i:=1 to n div 2 do

t:=t*n*(n-i+1);

if n mod 2 = 1 then

t:=t*(n div 2 +1);

write('n!=t');

readln;readln;

end.

clrscr;Mình có cách siêu rút gọn của pascal đây:

uses crt;

var n,t: extended;

i: longint;

begin

repeat

write('n=');read(n);

until n>0;

t:=1;

for i:=1 to n div 2 do

t:=t*n*(n-i+1);

if n mod 2 = 1 then

t:=t*(n div 2 +1);

write('n!=t');

readln;readln;

end.

Mình có cách siêu rút gọn của pascal đât:

uses crt;

var n,t: extended;

i: longint;

begin

clrscr;

repeat

write('n=');read(n);

until n>0;

t:=1;

for i:=1 to n div 2 do

t:=t*n*(n-i+1);

if n mod 2 = 1 then

t:=t*(n div 2 +1);

write('n!=t');

readln;readln;

end.

(Ưu điểm của chương trình rút gọn: nhanh chóng ra kết quả; n có thể là số to (n>21) với kiểu dữ liệu extended)