uses crt;
var n,m,i,tong:integer;
BEGIN
clrscr;
write('Nhap m:'); readln(m);
write('Nhap n:'); readln(n);
if m>n then
begin
write('Du lieu SAI');
readln;
exit;
end;
tong:=0;
write('CAC SO CHAN TU M DEN N LA:');
for i:=m to n do
if i mod 2=0 then
begin
write(i,' ');
tong:=tong+i;
end;
writeln;
write('TONG CAC SO CHAN TU M DEN N LA:',tong);
readln
END.
Chúc bạn học tốt.
Cho mình câu trl hay nhất nha.