Гипотеза Гольдбаха - Pascal

  1. Гольдбахом было высказано предположение, что каждое четное число, большее или равное 4 представимо в виде суммы двух простых. Это предположение до сих пор не доказано и не опровергнуто. Написать программу проверки этой гипотезы для данного четного числа. Результатом выполнения программы должен быть вывод самого числа, если не удалось найти пару простых слагаемых, и вывод пары соответствующих простых чисел, если таковая пара найдена.

textual

Код:

function Prost(x:integer):boolean;
var i:integer;
Begin
Prost:=false;
if not odd(x) and (x<>2) { проверяем на чётность  }
then exit;
i:=3;
while i*i<=x do { проверяем только нечётные }
 begin
  if x mod i=0 then exit;
  inc(i,2);
 end;
Prost:=true;
end;
var  n,k:integer;
     b:boolean;
begin
repeat
write('Введите четное число больше 3 n=');
readln(n);
until (n>3)and(n mod 2=0);
b:=false;
k:=2;
while(k<=n div 2) and not b do
 begin
  if Prost(k) and Prost(n-k) then
   begin
    b:=true;
    writeln(n,'=',k,'+',n-k);
   end
  else k:=k+1;
 end;
if not b then write(n)
end.

Похожие ответы
  1. Здравствуйте,попал в очень неприятную ситуацию, понадеялся на человека, а он "не смог". Времени мало, я попытаюсь за ночь хоть что то понять из основ программирования и написать, завтра уже сдавать. если кого не затруднит помогите написать программы на pascal: 3) Гипотеза Гольдбаха. Данное четное число n>2. Проверить для этого числа гипотезу Гольдаха, суть которой заключается в том, что каждое чётное n, больше двух, можно представить в виде суммыдвух простых чисел. Эта гипотеза на сегодняшний день не имеет строгого доказательства. Определить подпрограмму, позволяющее распознавать простые числа


Нашли ошибку?
Развитие проекта
Яндекс.Метрика