viết chương trình đếm các số chẵn từ m->n

Uses crt;

Var m, n, i, dc: integer;

Begin

Clrscr;

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

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

dc:=0;

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

Writeln('Co ',dc,' so chan');

Readln

End.

$Program$ $dem$_$so$_$chan;$

$uses$ $crt;$ 

$Var$ $M,N,i,dem:word;$ 

$Begin$ 

$clrscr;$

$Writeln ('Nhap$ $so$ $M$ $nho$ $hon$ $N');$

$Readln (M,N);$

$Dem:=0;$

$FOR$ $i:=M$ $TO$ $N$ $DO$ 

$IF$ $i$ $mod$ $2=0$ $THEN$ $dem=dem+1;$

$Writeln('So$ $nguyen$ $trong$ $pham$ $vi$ $M,N',dem);$

$Readln$

$End.$

BẠN THAM KHẢO NHA!!!