Giúp vs ạ mai mk thi rồi! 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 1000

0 bình luận về “Giúp vs ạ mai mk thi rồi! 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 1000”

1. 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.

   Bình luận

2. program ct;

   uses crt;

   var i,S: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;

   writeln(‘tong la:’,S);

   readln

   end.

   Bình luận