Question

giúp mình cần gấp

Viết chương trình của tổng T nhỏ nhất lớn hơn 300

Answer 1

uses crt;

var i,n,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 300 do 

  begin

t:=t+i;

if (t>300) then break;

end;

writeln(t);

readln;

end.