Viết chương trình Tính tổng các số âm bé hơn 300

0 bình luận về “Viết chương trình Tính tổng các số âm bé hơn 300”

1. Số âm nhỏ hơn 300 là rất nhiều, nên phải là tính số dương mới đúng, hoặc là tính tổng các số âm lớn hơn -300 cũng đúng

   *Tính tổng các số dương nhỏ hơn 300

   program tong_duong;

   ues crt;

   var i,t:longint;

   begin

       clrscr;

       t:=0;

       for i:=1 to 299 do t:=t+i;

       write(‘Tong cac so duong be hon 300 la: ,t);

       readln;

   end.

   *Tổng các số âm lớn hơn -300

   program tong_am;

   ues crt;

   var i,t:longint;

   begin

       clrscr;

       t:=0;

       for i:=-299 to -1 do t:=t+i;

       write(‘Tong cac so am lon hon -300 la: ,t);

       readln;

   end.

   Bình luận

2. Sửa đề: số âm mà bé hơn 300 thì có vô số nên mình làm số dương.

   uses crt;
   var i,s:longint;
   begin 
   clrscr;
      s:=0;
      for i:=1 to 299 do s:=s+i;
      writeln(‘Tong la: ‘,s);
   readln 
   end.

   Bình luận