KL

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

ML
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ự
NN
Xem chi tiết
VH
Xem chi tiết
HG
Xem chi tiết
YH
Xem chi tiết
NT
Xem chi tiết
H24
Xem chi tiết
CN
Xem chi tiết
LD
Xem chi tiết
NT
Xem chi tiết