Question

Дано четное число n > 2. Проверить для него гипотезу Гольдбаха: каждое четное п представляется в виде суммы двух простых чисел.

Answer 1

program p7;
var n,k:integer;
 
procedure vvod;
begin
writeln ('vvedite chetnoe chislo, bolshe dvyh: ');
readln (n);
if n <=2 then writeln ('vvedeno chislo menshe dvyh ');
if (n mod 2)<>0 then writeln ('vvedeno nechetnoe chislo! ')
end;
 
function proverka (pch:longint):boolean;
var i:longint;
begin
for i:=2 to trunc (sqrt(pch)) do
if n mod i=0 then
begin
proverka:=false;
exit;
end;
proverka:=true;
end;
begin
vvod;
for k:=1 to n div 2 do
if proverka(k) and proverka(n-k) then writeln (n,'=',k, '+',n-k);
readln;
end