Viết chương trình tính n! với n! được định nghĩa như sau: – n! = 1 với n = 0 – n! = 1.2.3…n (Tích của n số từ 1 đến n). Yêu cầu: Sử dụng vòng lặp vớ

 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