BÀI TẬP 27: TỔNG NGUYÊN TỐ

Cho số nguyên dương N (N≤10⁵).

Yêu cầu: Tìm số các cặp số nguyên dương x, y sao cho:

            - x, y là 2 số nguyên tố.

            - x + y = N.

            - x ≤ y

Dữ liệu vào: Gồm một số nguyên duy nhất N.

Kết quả: In ra màn hình một số là số các cặp số tìm được

Ví dụ:

Nhập dữ liệu	Kết quả in ra màn hình
N=10	2

CODE THAM KHẢO:

program Tong_nguyen_to;

uses crt;

var n,i,d:longint;

function NguyenTo(n:longint):boolean;

var i:longint;

begin

    if n<2 then exit(false);

    for i:=2 to trunc(sqrt(n)) do

        if n mod i=0 then exit(false);

    exit(true);

end;

begin

    clrscr;

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

    d:=0;

    for i:=2 to (n div 2) do

        if NguyenTo(i) and NguyenTo(n-i) then inc(d);

    writeln('So cac cap so tim duoc: ',d);

    readln;

end.