Question

Viết chương trình cho biết tổng nhỏ nhất lớn hơn 10 của N số tự nhiên đầu tiên là bao nhiêu?

Answer 1

uses crt;

var t,n:integer;

begin

clrscr;

t:=0;

n:=0;

while t<=10 do 

  begin

n:=n+1;

t:=t+n;

end;

writeln(t);

readln;

end.