Tưởng Thị Hoà
Hỏi từ APP VIETJACK
Cho các số từ 1 đến 100 viết chương trình tính tổng các số đó(sử dụng câu lệnh while...do)
Quảng cáo
1 câu trả lời 199
program hotrotinhoc;
var tong,n : integer;
begin
tong:=0; n:=0;
while tong<100 do
begin
n:=n+1;
tong:=tong+n;
end;
write('Tong 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 VIETJACK45502
-
Hỏi từ APP VIETJACK28395
Gửi báo cáo thành công!
