Viết chương trình lập 2 số nguyên dương m, n từ bàn phím (m
2 câu trả lời
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.
