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.