Khánh ly

Viết chương trình tích của 10 số tự nhiên đầu tiên.{dùng while...do..}
P=1.2.3.4.5.6.7.8.9.10

Minh Lệ
23 tháng 3 2023 lúc 23:38

Program HOC24;

var P: integer;

i: byte;

begin

i:=1;  P:=1;

while i<=10 do

begin

p:=p*i;

i:=i+1;

end;

write('P = ',p);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
nguyên Nông
Xem chi tiết
Vũ Duy Hoàng
Xem chi tiết
hoi lam gi
Xem chi tiết
Yến Hải
Xem chi tiết
NQ Thi
Xem chi tiết
huyokkkkk
Xem chi tiết
Cầu Nguyễn
Xem chi tiết
Le Van Dai
Xem chi tiết
nguyễn tiến thành
Xem chi tiết