Câu 4 : Viết chương trình đếm số các số chẵn của 10 số nguyên đầu tiên? (N được nhập vào từ bàn phím) Câu 5 : Viết chương trình đếm số các số lẻ của 10 số nguyên đầu tiên? (N được nhập vào từ bàn phím)

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.

Câu 4:

uses crt;
var i,kq:longint;
begin
        clrscr;
        for i:=1 to 10 do
                if i mod 2 = 0 then
                        kq:=kq+i;
        write('Tong so chan tu 1 den 10: ',kq);
        readln;
end.

Câu 5:

uses crt;
var i,kq:longint;
begin
        clrscr;
        for i:=1 to 10 do
                if not i mod 2 = 0 then
                        kq:=kq+i;
        write('Tong so le tu 1 den 10: ',kq);
        readln;
end.