Question

,vt chương trình tính tổng các số chẵn đầu tiên cho tới khi đc tổng nhỏ nhất >5000 Đưa kết quả ra màn hình

Answer 1

uses crt;

var n,t:integer;

begin

clrscr;

t:=0;

n:=0;

repeat

n:=n+2;

t:=t+n;

until t>5000;

writeln(t);

readln;

end.