Проверить для этого числа N гипотезу Гольдбаха

[Devid92]

Дано четное число N. Проверить для этого числа гипотезу Гольдбаха. Эта гипотеза(по сегодняшний день не опровергнутая и полностью недоказанная) заключается в том, что каждое четное N>=2 представляется в виде суммы двух простых чисел.( Определить процедуру распознавания простых чисел.)




Помогите мне с этой задачкой. второй день голову ломаю не знаю как сделать(((

[Snejnaya]

function proverka(chislo:integer):boolean;
var j:integer;
    flag:boolean;
begin
flag:=true;
for j:=2 to (chislo-1) do
if ((chislo mod j)=0) then flag:=false;
result:=flag;
end;


var N, i, N1, N2:integer;
    fl:boolean;

begin
writeln('vvedite chetnoe chislo');
readln(N);

fl:=false;
for i:=1 to (N div 2) do
if (proverka(i) and proverka(N-i)) then 
begin
fl:=true;
N1:=i;
N2:=N-i;
end;

if fl then writeln(N1, '+', N2, '=', N)
else writeln ('gipoteza ne podtverdilas!');
readln;
end.

если что непонятно - спрашивай))

[Devid92]

Спасибо приогромное

[Мажор7625]

Сообщение от Snejnaya

function proverka(chislo:integer):boolean;
var j:integer;
    flag:boolean;
begin
flag:=true;
for j:=2 to (chislo-1) do
if ((chislo mod j)=0) then flag:=false;
result:=flag;
end;


var N, i, N1, N2:integer;
    fl:boolean;

begin
writeln('vvedite chetnoe chislo');
readln(N);

fl:=false;
for i:=1 to (N div 2) do
if (proverka(i) and proverka(N-i)) then 
begin
fl:=true;
N1:=i;
N2:=N-i;
end;

if fl then writeln(N1, '+', N2, '=', N)
else writeln ('gipoteza ne podtverdilas!');
readln;
end.

если что непонятно - спрашивай))

А как это можно реализовать в си++