Download: http://www.mediafire.com/?6k9qcl641p4bja8
PROGRAM CT54;
USES crt;
VAR i,c,l,M,N: INTEGER;
BEGIN
clrscr;
Writeln('Chuong trinh dua ra so chan so le trong khoang');
Write('Nhap M va N voi M<N : '); Readln(M,N);
c:=0; l:=0;
FOR i:=M TO N DO
IF i MOD 2 = 0 THEN c:=c+1 ELSE l:=l+1;
Writeln('So chan : ',c);Write('So le : ',l);
Readln
END.
PROGRAM CT54;
USES crt;
VAR i,c,l,M,N: INTEGER;
BEGIN
clrscr;
Writeln('Chuong trinh dua ra so chan so le trong khoang');
Write('Nhap M va N voi M<N : '); Readln(M,N);
c:=0; l:=0;
FOR i:=M TO N DO
IF i MOD 2 = 0 THEN c:=c+1 ELSE l:=l+1;
Writeln('So chan : ',c);Write('So le : ',l);
Readln
END.