Viết chương trình tính tổng 2+4+6+…+i+-đến khi S>100000

program ct;

uses crt;

var i,S:longint;

begin clrscr;

   for i:=1 to 1000 do;

    begin

       if i mod 2=0 then S:=S+i;

       if S>100000 then break;

    end;

   write(‘Tong S la: ‘,S);

readln;

end.

Học tốt!