Lập trình đơn giản

Tú Nguyễn

Viết chương trình nhập vào giá trị a. In ra màn hình số n lớn nhất sao cho tổng các số từ 1 đến n nhỏ hơn hoặc bằng a

Trương Quang Dũng
10 tháng 1 2019 lúc 20:50

program bai1;

var i,n,s,max:longint;

begin

s:=0;

write('a= ');readln(a);

max:=-maxlongint;

for i:=1 to a do

begin

s:=s+i;

if s<=a then

max:=i;

end;

write(max);

readln

end.

Bình luận (3)
Tú Nguyễn
10 tháng 1 2019 lúc 21:18

bài ông lm đúng rồi

Bình luận (0)

Các câu hỏi tương tự
ytkc
Xem chi tiết
duy lê
Xem chi tiết
phamthiminhanh
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
đức minh
Xem chi tiết
nguyễn vũ thành công
Xem chi tiết
Hưng Quốc
Xem chi tiết
Anh Thế
Xem chi tiết
hoho209
Xem chi tiết