Bài 1:

program oken;

uses CrT;

var m,n,i,tong:integer;

begin

clrscr;

write('nhap m: '); readln(m);

write('nhap n: '); readln(n);

if m<n then 

     for i:=m to n do

          if i mod 5=0 then tong:=tong+i;

writeln('tong cac so chia het cho 5: ',tong);

readln;

end.

Bài  2:

program oken;

uses crt;

var m,n,i,dem:integer;

begin

clrscr;

write('nhap m: '); readln(m);

write('nhap n: '); readln(n);

if m<n then 

     for i:=m to n do

          if i mod 3=0 then dem:=dem+1;

writeln('cac so chia het cho 3: ',dem);

readln;

end.

Bài 1:

Program FNG;
Uses crt;
Var m,n,s,i: longint;
Begin
        Clrscr;
        Write('Nhap m va n: '); Readln(m,n);
        s:=0;
        For i:=m to n do
                If i mod 5 = 0 then s:=s+i;
        Write('S = ',s);
        Readln
End.

Bài 2:

Program FNG;
Uses crt;
Var m,n,d,i: longint;
Begin
        Clrscr;
        Write('Nhap m va n: '); Readln(m,n);
        s:=0;
        For i:=m to n do
                If i mod 3 = 0 then inc(d);
        Write(d);
        Readln
End.