Viết chương trình lập 2 số nguyên dương m, n từ bàn phím (m

• Lớp 11
• Tin Học

Xem đáp án

uses crt;

var m, n, i, d : integer;

begin

clrscr;

d := 0;

write('nhap so duong m va n : ');readln(m, n);

if m < n then

begin

for i := m to n do

if (i mod 2 <> 0) and (i mod 3 <> 0) and (i mod 5 <> 0) then

d := d + 1;

writeln('co ', d ,' so la so le khong chia het cho 3 va 5');

end

else writeln('hay nhap lai m va n ');

readln

end.

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 2 <> 0) and ((i mod 3 <> 0) and (i mod 5 <> 0)) then dem:=dem+1;
   writeln('So luong cac so le khong 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 $m$ và $n$ khi $m>n$ vì khi $m>n$ thì vòng lặp for không thực hiện được.