- Pascal :

uses crt;

var N, M, S, i : integer;

begin

clrscr;

S := 0;

write('N = '); readln(N);

write('M = '); readln(M);

if (0 < N) and (N < M) then

    for i := N to M do begin

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

        if N mod 2 <> 0 then if i mod 2 <> 0 then S := S + i; end;

write('S = ', S);

readln

end.

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

uses crt;
var N, M, S, a : integer;
begin
clrscr;
writeln('nhap N va M sao cho 0 < N < M');
write('N = '); readln(N);
write('M = '); readln(M);
 for a:=N to M do 
  begin
   if (N mod 2 = 0) and (a mod 2 = 0) then
    S:=S+a;
   if (N mod 2 <> 0) and (a mod 2 <> 0) then
    S:=S+a;
  end;
write('S = ',S);
readln
end.