Câu 4:
Program BTH;
uses crt;
var a,b,c,d:longint;
Begin
clrscr;
b:=0; c:=10; d:=0;
For a:=1 to c do
Begin
Write('Nhap so thu ',a,' cua day: ');readln(d);
If d mod 2=0 then
b:=b+1;
end;
Writeln('So lan xuat hien cua so chan la: ',b);
Readln;
End.
Câu 5:
Program BTH;
uses crt;
var a,b,c,d:longint;
Begin
clrscr;
b:=0; c:=10; d:=0;
For a:=1 to c do
Begin
Write('Nhap so thu ',a,' cua day: ');readln(d);
If d mod 2=1 then
b:=b+1;
end;
Writeln('So lan xuat hien cua so le la: ',b);
Readln;
End.