Câu 49. Viết chương trình tính n! với n! được định nghĩa như sau: – 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ới số lần chưa biết trước:
Hướng dẫn:
– Có thể viết lại: n! = n.(n-1)… – Lặp gt = gt*n
Giúp tui vs mn ơi tui cần gấp nè
Giúp tui vote 5* nha
Program FNG;
Uses crt;
Var n,i: longint;
s: qword;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
s:=1; i:=1;
While i<=n do
Begin
s:=s*i;
inc(i);
End;
Write(n,’! = ‘,s);
Readln
End.
Program BTH;
uses crt;
var a,b:qword;
Begin
clrscr;
Repeat
write(‘Nhap so n: ‘);readln(a);
until a>0;
b:=1;
while a>0 do
begin
b:=b*a;
a:=a-1;
end;
writeln(‘Giai thua cua n la: ‘,b);
readln;
end.