vt c.trình tính tổng các số chẵn từ 1->1000 sử dụng vòng k lặp xác định

2 câu trả lời

$@HoangHigo$

uses crt;
var i,ans:longint;
begin
clrscr;
    i:=2;
    while i <= 1000 do 
        begin
            if i mod 2 = 0 then inc(ans,i);
            inc(i);
        end;
    writeln(ans);
readln;
end.