Cho 2 số nguyên dương m,n (m
1 câu trả lời
program Min;
uses crt;
var m,n,i,dem:integer;
begin
clrscr;
dem:=0;
writeln('Nhap hai so m,n (m<n): '); readln(m,n);
repeat
begin
writeln('Hay nhap lai m,n (m<n): ');
readln(m,n);
end;
until m<n;
for i:=m to n do if i mod 2 =0 then dem:=dem+1;
writeln('So cac so chan trong khoang tu ',m,' den ',n,' la: ',dem);
readln
end.
Bạn kiểm tra lại nha. Nếu với đề như trên thì chương trình này đúng :D
