Viết chương trình thực hiện nhập từ bàn phím hai số nguyên dương M và N ( với M<N) tính và đưa ra màn hình tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ M đến N

program Min;
uses crt;
var i,n,m,dem:integer;
begin
   clrscr;
   dem:=0;
   writeln('Nhap m,n: '); readln(m,n);
    if m>n then 
   begin
      m:=m+n;
      n:=m-n;
      m:=m-n;
   end;
   for i:=m to n do
      if (i mod 3 = 0)  and (i mod 5 = 0)) then dem:=dem+1;
   writeln('So luong cac so le chia het cho 3 hoac 5 la: ',dem);
    readln
end.

Giải thích thêm: Đoạn từ "if m>n then begin...end;" dùng để tráo đổi vị trí của mm và nn khi m>nm>n vì khi m>nm>n thì vòng lặp for không thực hiện được.

program tong;

uses crt;

var i, s, m , n : integer;

begin

clrscr;

s := 0;

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

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

for i := m to n do

if (i mod 3 = 0) or (i mod 5 = 0) then s := s + i;

writeln('tong s la :', s);

readln

end.