Hướng dẫn:
- Có thể viết lại: n! = n.(n-1)... 3.2.1.
- Lặp gt = gt*n; n = n-1 với điều kiện n>0.
Mã chương trình:
Program Giai_Thua_while;
uses crt;
var n, gt:longint;
begin
clrscr;
Repeat
write('Nhap so n: ');readln(n);
until n>0;
gt:=1;
while n>0 do
begin
gt:=gt*n;
n:=n-1;
end;
writeln('Giai thua cua n la: ',gt);
readln
end.
Nhận xét: Tiết kiệm được một biến i để chạy nhưng làm thay đổi n nên khi xuất ra chỉ
có thể xuất một câu chung chung “Giai thua cua n la:”
CHÚC BN HỌC TỐT # NGUYỄN THANH BẢO KHA @ I LOVE YOU