Cho 2 số nguyên dương m,n (m { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Cho 2 số nguyên dương m,n (m
0 bình luận về “Cho 2 số nguyên dương m,n (m<n) viết chương trình để tusnh số lượng và các số chẵn trong khoảng từ m tới n”
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 😀
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 😀