Viết chương trình tính tổng của n số tự nhiên đầu tiên sao cho tổng của n lớn nhất và nhỏ hơn 1000.

program tinh;
uses crt;
var i:integer;

     S: longint;
begin clrscr;
  S:=0; i:=0;
    while S<1000 do

    begin
      i:=i+1;
        if S<1000 then

      S:=S+i;
        if S>=1000 then
    begin
       S:=S-i;
       break;
    end;
    end;
  write('Tong n lon nhat va nho hon 1000 la: ',S);
readln;
end.

Học tốt!

uses crt;
var S,i:integer;
begin
   clrscr;
   S:=0; i:=0;
   while S<1000 do
   begin
      i:=i+1;
      if S<1000 then S:=S+i;
      if S>=1000 then
      begin
         s:=s-i;
         break;
      end;
   end;
   write('S=',S);
   readln
end.