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.

0 bình luận về “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.”

1. program ct;
   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!

   Bình luận

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