Viết chương trình lập 2 số nguyên dương a, b từ bàn phím (a { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình lập 2 số nguyên dương a, b từ bàn phím (a
0 bình luận về “Viết chương trình lập 2 số nguyên dương a, b từ bàn phím (a<b) đế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ừ”
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.
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.