Câu 1:

Program BTT;
Uses crt;
Var m,n,s,i: longint;
Begin
        Clrscr;
        Write('Nhap m va n: '); Readln(m,n);
        s:=0;
        If m<n then
                For i:=m to n do
                        If i mod 2=0 then s:=s+i
        Else
                For i:=n to m do
                        If i mod 2=0 then s:=s+i;
        Write('Tong la: ',s);
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var n,i: longint;
    s: extended;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=500;
        For i:=1 to n do
                s:=s+1/(3*i);
        Write('Tong la: ',s:0:2);
        Readln
End.

Câu 1:

uses crt;
var i,m,n,t:longint;
begin
clrscr;
   write('Nhap m,n: ');readln(m,n);
   for i:=m to n do  
      if i mod 2=0 then inc(t,i); 
   writeln('Tong cac so chan tu m den n: ',t);
readln
end.

Câu 2:

uses crt;
var i,n:longint; s:real;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=3 to 3*n do  
      s:=s+1/i;
   s:=s+500;
   writeln('S= ',s);
readln
end.