Question

Viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì dừng lại?

Answer 1

program ctdt;
uses crt;
var i,tong:integer;
(*-----------------------*)
begin
clrscr;
tong:=0;i:=0;

while tong<=100 do
begin
i:=i+1;
tong:=tong+i;
end;

readln;
end.