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

• Lớp 11
• Tin Học

Xem đáp án

program Min;
uses crt;
var i,a,b,dem:integer;
begin
   clrscr;
   dem:=0;
   writeln('Nhap a,b: '); readln(a,b);
    if a>b then 
   begin
      a:=a+b;
      b:=a-b;
      a:=a-b;
   end;
   for i:=a to b 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 a>b then begin...end;" dùng để tráo đổi vị trí của $a$ và $b$ khi $a>b$ vì khi $a>b$ thì vòng lặp for không thực hiện được.

var i,a,b,dem:integer;
begin
clrscr;
dem:=0;
writeln('Nhap a,b: '); readln(a,b);
if a>b then 
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
for i:=a to b 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.