Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Ngọc Kiều Oanh

"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"

Lê Phương Mai
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.


Các câu hỏi tương tự
Hà Phan Thanh
Xem chi tiết
Phạm Gia Long
Xem chi tiết
Con Tatu Ẩn Danh
Xem chi tiết
nguyễn phạm duy bảo
Xem chi tiết
HUỲNH NGỌC BẢO ÂN
Xem chi tiết
Thịnh Nguyễn
Xem chi tiết
Tiểu Z
Xem chi tiết
nguyên văn thinh
Xem chi tiết
Vũ Minh Hiếu
Xem chi tiết