I)Viết chương trình nhập từ bàn phím số nguyên dương N ( N<= 100) và dãy A gồm N số nguyên dương A1, A2, A3,…An có trị tuyệt đối không lớn hơn 1000. Hyax đưa ra những thông tin sau:

a. Số lượng số chẵn và số lẻ trong dãy

b. Số lượng số nguyên tố trong dãy

program bai2;

var

    nt: array[1..100] of Boolean; {nt[i]=true nếu i là số nguyên tố}

procedure Sang_Nguyen_To; {Thủ tục chọn ra các số nguyên tố trong đoạn [1 ; 100]}

var i, j: Integer;

    FillChar(nt, SizeOf(nt), True);

    nt[1]:=False;

    nt[2]:=True;

    while i<=100 do

            if nt[i] then

                    j:=2;

                    while (i*j<=100) and not(nt[i*j]) do

                            nt[i*j]:=False;

                            inc(j);

                        end;

                end;

        end;

end.

procedure Progress;

var N, Chan, Le, Temp, Nguyento: Integer;

    Write('Nhập vào số nguyên dương N : '); ReadLn(N);

    Chan:=0;

    Le:=0;

    for i:=1 to N do

            ReadLn(Temp);

            Temp:=Abs(Temp);

            if Temp mod 2 = 0 then inc(Chan) else inc(Le);

            if nt[Temp] then inc(Nguyento);

        end;

    WriteLn('Số số chẵn trong dãy là ', Chan);

    WriteLn('Số số lẻ trong dãy là ', Le);

    WriteLn('Số số nguyên tố trong dãy là ', Nguyento);

    WriteLn('Ấn enter để thoát...');

    ReadLn;

end;

begin {Chương trình chính}

    Sang_Nguyen_To;

    Progress;

end.

II)Viết chương trình nhập từ bàn phím xâu kí tự S có độ dài không quá 100. Hãy cho biết co bao nhiêu chữ số xuất hiện trong xâu S, thông báo kết quả ra màn hình

program bai3;

const

   chuso = ['0'..'9'];

var

   s: String;

   i, count: Integer;

   Write('Nhập vào xâu s : ');   ReadLn(s);

   count:=0;

   for i:=1 to Length(s) do

      if s[i] in chuso then Inc(count);

   WriteLn('Số chữ số trong xâu s là ',count);

end.

III)

Program Fibonaxi;

Uses Crt;

Var n,i :word;

f,f1,f2:word;

       clrscr;

Repeat

write('N=');readln(n);

if N<=2 then write('nhap lai');

Until n>=2;

f1:=1; f2:=2;

for i:=3 to n do

f:=f1+f2;

f1:=f2;

f2:=f;

end;

writeln('so thu ',n:3,'la',f:3);

readln

end.