Sử dụng câu lệnh lắp tiến và lắp lùi For-Do trong pascal để giải bài toán : tính n giai thừa (n!) , với n là một số nguyên dương lớn hơn 1 . Cứu e với ạ
2 câu trả lời
* Lặp tiến :
uses crt;
var i, n, P : longint;
begin
clrscr;
P := 1;
write('nhap so n : '); readln(n);
for i := 1 to n do P := P * i;
writeln(n,'! = ', P);
readln
end.
* Lặp lùi :
uses crt;
var i, n, P : longint;
begin
clrscr;
P := 1;
write('nhap so n : '); readln(n);
for i := n downto 1 do P := P * i;
writeln(n,'! = ', P);
readln
end.
Var S,n,x: integer;
Begin
Write('Nhap n: ');Readln(n);
S:=1;
For x:=1 to n do S:=S*x;
Write('Gia tri n!= ',S);
Readln;
End.
