Quảng cáo
2 câu trả lời 2468
program tinhoc ;
var i,tong : integer ;
begin
tong:=0; i:=0;
while i<=100 do
begin
i:=i+1;
tong:=tong+i;
end;
write('tong 100 so tu nhien dau tien la:',tong);
readln
end.
program hotrotinhoc ;
var i,tong : integer ;
begin
tong:=0; i:=0;
while i<=100 do
begin
i:=i+1;
tong:=tong+i;
end;
write('tong 100 so tu nhien dau tien la:',tong);
readln
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45484
-
Hỏi từ APP VIETJACK28358
Gửi báo cáo thành công!
