Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trịnh Nam

Viết chương trình tính tích n số tự nhiên được nhập từ bàn phím (Sử dụng câu lệnh while... do)

Kiều Vũ Linh
27 tháng 2 2023 lúc 8:32

Var i,n,p:longint;

Begin

Write('Nhap n = ');readln(n);

i:=1;

p:=1;

While i<=n do

Begin

i:=i+1;

p:=p*i;

End;

Write('Tich la ',p);

Readln;

End.


Các câu hỏi tương tự
Trương Đại Phong
Xem chi tiết
thanh mai
Xem chi tiết
Minh Đông
Xem chi tiết
Huỳnh Hân
Xem chi tiết
Thư Uyên
Xem chi tiết
huy hoàng
Xem chi tiết
Minh Ngọc
Xem chi tiết
Huy Nguyễn
Xem chi tiết
Nguyễn Gia Huy
Xem chi tiết