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

Viết chương trình tính tổng x1,x2,x3,...nhập vào từ bàn phím sao cho tổng nhỏ nhất lớn hơn 3500 (While...do)

nguyễn an phát
17 tháng 4 2021 lúc 20:20

program tim_tong;

uses crt;

var x,i,tong:longint;

begin

clrscr;

tong:=0;i:=1;

while tong<=3500 do

begin

write('x',i,'=');readln(x);

tong:=tong+x;

i:=i+1;

end;

write('tong cac so tren la:',tong);

readln;

end.


Các câu hỏi tương tự
Quỳnh Anh
Xem chi tiết
42. Nguyễn Thị Thanh Tuy...
Xem chi tiết
Đoàn Khánh Chi
Xem chi tiết
Gia Linh
Xem chi tiết
ẩn danh
Xem chi tiết
xmisiucute
Xem chi tiết
Anh Đức 8/8
Xem chi tiết
V.Phương
Xem chi tiết
mẫn cuti
Xem chi tiết