sử dụng lệnh while viết chương trình tính tổng n số tự nhiên đầu tiên sao cho tổng nhỏ nhất lớn hơn giá trị Max. In kết quả ra màn hình và Max được nhập từ bàn phím
sử dụng lệnh while viết chương trình tính tổng n số tự nhiên đầu tiên sao cho tổng nhỏ nhất lớn hơn giá trị Max. In kết quả ra màn hình và Max được nhập từ bàn phím
program phuongt;
uses crt;
var n, s, max: integer;
begin
clrscr;
write(‘Nhap max = ‘); readln(max);
s:=0; n:=0;
while s<=max do
begin
n:=n+1;
s:=s+n;
end;
write(‘Tong = ‘, s);
readln
end.