Viết chương trình tính tổng từ 100 đến 1000.

0 bình luận về “Viết chương trình tính tổng từ 100 đến 1000.”

1. program tong;

   uses crt;

   var i: integer;

         T: longint;

   Begin

            clrscr;

            T:=0;

            for i:=100 to 1000 do T:=T+i;

            write(‘T = ‘,T);

            readln

   End.

   Bình luận

2. program tong_so;

   uses crt;

   var i:integer;

        t:longint;

   begin

          clrscr;

          t:=0;

          for i:=100 to 1000 do

                 t:=t+i;

          write(‘Tong la: ‘,t);

          readln;

   end.

   Bình luận