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.
