BÀI TẬP 69: CẶP SỐ NGUYÊN TỐ SINH ĐÔI

Cho một dãy số nguyên dương gồm N phần tử a₁, a₂, …, a_N với (1≤ N ≤ 30). Hãy viết chương trình thực hiện công việc sau: Đếm trong dãy số trên có bao nhiêu cặp số sinh đôi. Biết rằng, hai số được gọi là cặp số sinh đôi nếu nó là các số nguyên tố và có hiệu bằng 2, ví dụ hai số 7 và 5 là một cặp số sinh đôi.

Dữ liệu vào: Nhập vào số nguyên dương N và các giá trị a_i của dãy số (1 ≤ i ≤ N);

Kết quả ra: Ghi ra màn hình gồm hai dòng:

            - Dòng đầu: là một số nguyên dương cho biết số cặp số sinh đôi tìm được;

            - Dòng thứ hai: là các cặp số sinh đôi tìm được;

            - Nếu không tìm được thì ghi là “khong co cap nao”.

            Các số trên một dòng viết cách nhau ít nhất một dấu cách.

Ví dụ:

Dữ liệu vào	Dữ liệu ra
10 10 5 6 8 20 11 13 7 89 30	2 (7,5) (13,11)
4 25 43 6 7 9	khong co cap nao

    CODE THAM KHẢO:

    program CapSoSinhDoi;

    uses crt;

    var i, n, d: integer;

        A: array[1..100] of integer;

        NT: array[-110..100000] of byte;

    function snt(M: integer): boolean;

    var j: integer;

    begin

           snt:=True;

           if m < 2 then exit(false) else

           for j:=2 to trunc(sqrt(m)) do

            if m mod j = 0 then exit(false);

    end;

    begin

            clrscr;

            fillchar(NT,sizeof(NT),0);

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

            d:=0;

            for i:=1 to n do

            begin

                    write('A[',i,'] = '); readln(A[i]);

                    if snt(a[i]) then

                    begin

                        NT[a[i]]:=1;

                        if NT[a[i]-2]=1 then inc(d);

                    end;

            end;

            if d > 0 then

            begin

                    writeln(d);

                    for i:=1 to n do

                       if (NT[a[i]-2] = 1) and (NT[a[i]] = 1) then

                       write('(',a[i],' ',a[i]-2,')');

            end else write('khong co cap nao');

            readln;

    end.