Bài 1: viết chương trình đếm các số chẵn có trong đoạn [ M,N ]

Uses crt;

Var dc, i, n, m: integer;

Begin

     Clrscr;

     Write('Nhap n = '); readln(n);

     Write('Nhap m = '); readln(m);

     dc:=0;

     For i:=m to n do if i mod 2 = 0 then inc(dc);

     Writeln('Co ',dc,' so chan trong doan M den N');

Readln

End.

Uses crt;

 Var n,i,d:integer;

Begin

 Clrscr;

 Write('M:');readln(M);

Write('N:');readln(n);

For i:=m to n do if i mod 2=0 then d:=d+1;

writeln('So chan co trong doan ',m',',',n,' la:',d);

readln end