Viết chương trình nhập vào 2 số nguyên dương M , N ( M < N ) , tính và đưa ra màn hình số lượng các số chẳn và số lượng các số lẻ trong phạm vi từ M đến N.
Viết chương trình nhập vào 2 số nguyên dương M , N ( M < N ) , tính và đưa ra màn hình số lượng các số chẳn và số lượng các số lẻ trong phạm vi từ M đến N.
Program Camoncaigi;
Uses crt;
Var M,N ,chan,le: word;
Clrscr;
Writeln(‘nhap tu ban phim so N’); Readln(N);
Writeln(‘nhap tu ban phim so M’); readln(M);
For i:= N to M do
if i mod 2=0 then chan:= chan+1 else le:= le+1;
Writeln(chan,la so chan’) ;
writeln(le,la so le);
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 mm và nn khi m>nm>n vì khi m>nm>n thì vòng lặp for không thực hiện được.