Question

Nhập hai số nguyên dương M và N . Tính và in ra tổng số chẵn trong khoảng từ M đến N 

Answer 1

uses crt;

var m,n,s,i:integer;

begin

clrscr;

readln(m,n);

s:=0;

for i:=m to n do

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

writeln(s);

readln;

end.