Question

Viết chương trình lập 2 số nguyên dương m, n từ bàn phím (m<n) đếm và đưa ra màn hình số lượng các số lẻ không chia hết cho 3 hoặc 5 trong phạm vi từ m đến n

Answer 1

uses crt;
var m,n,dem,i:integer;
begin
clrscr;
write('nhap m='); readln(m);
write('nhap n='); readln(n);
if (m>0) and (n>0) then
begin
if m<n then
begin
dem:=0;
for i:=m to n do
if (i mod 2=1) then
begin
if (i mod 3<>0) or (i mod 5<>0) then inc(dem);
end;
writeln('so luong cac so le khong chia het cho 3 hoac 5 trong pham vi tu ',m,' toi ',n,' la: ',dem);
end
else writeln('vui long nhap m lon hon n');
end
else writeln('vui long nhap so lon hon 0');
readln;
end.