NO

"Trình bày cấu trúc lặp với số lần biết trước trong pascal 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"

LM
9 tháng 2 2022 lúc 6:30

Tham khảo:

* 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.

Bình luận (0)

Các câu hỏi tương tự
HT
Xem chi tiết
PL
Xem chi tiết
CD
Xem chi tiết
NB
Xem chi tiết
HA
Xem chi tiết
TN
Xem chi tiết
TZ
Xem chi tiết
NT
Xem chi tiết
VH
Xem chi tiết