Question

Câu 22 Sử dụng vòng lặp  While …  do…Để viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 500. 

Answer 1

Program HOC24;

var i,n,t: integer;

begin

t:=0; i:=1;

while t<=500 do

begin

t:=t+i;

i:=i+1;

end;

write('Ket qua la: ',t);

readln

end.