code 1: tính tổng của các số chẵn được hiển thị trên màn hình

uses crt;

var N,i,sum:integer;

begin

clrscr;

 write('nhap N: ');readln(N);

 if N>=15 then 

 begin

  writeln('so da nhap khong hop le!');

  write('nhap lai N<15: ');readln(N);

 end;

 for i:=1 to N do

  begin

   if i mod 2=0 then

   begin

    write(i,' ');

    sum:=sum+i;

   end;

  end;

 readln;

 write('tong cua cac so chan tu 1 toi ',N,' la: ',sum);

 readln;

end.

code 2: tính tổng của các số từ 1 tới N (không phải là tổng của riêng các số chẵn)

uses crt;

var N,i,sum:integer;

begin

clrscr;

 write('nhap N: ');readln(N);

 if N>=15 then 

 begin

  writeln('so da nhap khong hop le!');

  write('nhap lai N<15: ');readln(N);

 end;

 for i:=1 to N do

  begin

   if i mod 2=0 then write(i,' ');

   sum:=sum+i;

  end;

 readln;

 write('tong cua cac so tu 1 toi ',N,' la: ',sum);

 readln;

end.

đây nha, chúc bạn học tốt!

uses crt;

var n,i:byte;

      t:integer;

Begin

        clrscr;

        readln(n);

        while n>=15 do

        begin

                write('nhap lai n<15: ');readln(n);

        end;

        for i:=2 to n do

        if i mod 2=0 then

        begin

                write(i,' ');

                t:=t+i;

        end;

        write('T = ',t);

        readln

End.