Tin Học's Profile

program tinhtong_N; {tinh tong so chan N bang While .. do}
uses    crt;
var     i,n:integer;
        S:Longint;
begin
        clrscr;

        write('Nhap N = ');
        readln(n);
        S:=0;
        i:=0;
        While  i<n do
        begin
                i:=i+1;
                if i mod 2 = 0 then S:= S + i;
        end;
        writeln('tong cac so chan tu 1 --> ',n,' là = ',S);
        readln;
end.

a