*Ctrình tính và xuất ra tổng các số lẻ ( chẵn) trong phạm vi từ A đến B *Ctrình tính và xuất ra tổng các số trong phạm vi từ M đến N Giúp e với mai thi r ạ ?

uses crt;
var i,a,b,c,l:integer;
begin
    clrscr;
    readln(a,b);
    c:=0;l:=0;
    for i:=a to b do
       if i mod 2=0 then c:=c+i
          else l:=l+i;
    writeln(c);
    writeln(l);
readln;
end.

uses crt;
var i,m,n,t:integer;
begin
    clrscr;
    readln(m,n);
    t:=0;
    for i:=m to n do
       t:=t+i;
    writeln(t);
readln;
end.

*Câu 1, ý 1:

program tong_le;
uses crt;
var a,b,i,t:longint;
begin
    clrscr;
    write('Nhap A: ');   readln(a);
    write('Nhap B: ');   readln(b);
    t:=0;
    for i:=a to b do
        if i mod 2=1 then t:=t+i;
    write('Tong cac so le tu ',a,' den ',b,' la: ',t);
    readln;
end.

*Câu 1, ý 2:

program tong_chan;
uses crt;
var a,b,i,t:longint;
begin
    clrscr;
    write('Nhap A: ');   readln(a);
    write('Nhap B: ');   readln(b);
    t:=0;
    for i:=a to b do
        if i mod 2=0 then t:=t+i;
    write('Tong cac so chan tu ',a,' den ',b,' la: ',t);
    readln;
end.

*Câu 2:

program tong_so;
uses crt;
var m,n,i,t:longint;
begin
    clrscr;
    write('Nhap M: ');   readln(m);
    write('Nhap N: ');   readln(n);
    t:=0;
    for i:=m to n do t:=t+i;
    write('Tong cac so tu ',m,' den ',n,' la: ',t);
    readln;
end.