Bài 6. Câu lệnh điều kiện

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
mai vy trần thị

viết chương trình tính tổng A=1+2+3+...n sao cho tổng A nhỏ nhất lớn hơn 700 ( n đc nhập vào từ bàn phím )

Nguyễn Lê Phước Thịnh
12 tháng 6 2020 lúc 19:06

uses crt;
var a,i:integer;
begin
clrscr;
a:=0;
for i:=1 to 700 do
begin
if a<=700 then a:=a+i
else break;
end;
writeln(a);
readln;
end.


Các câu hỏi tương tự
Phạm Anh Thư
Xem chi tiết
Không Tên
Xem chi tiết
Khanh Huynh
Xem chi tiết
04-Nguyễn Quốc Đại-8a3
Xem chi tiết
Ngô Vân Minh Châu
Xem chi tiết
Hân Chướng
Xem chi tiết
Minh Ngọc
Xem chi tiết
Nguyễn Trường Sinh
Xem chi tiết
bich lien
Xem chi tiết