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

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


textual

Код к задаче: «Гипотеза Гольдбаха - Pascal»

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.

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.000 из 5



Похожие ответы
  1. «Гипотеза Гольдбаха». 7 июня 1742 г. Христиан Гольдбах в письме к Леонарду Эйлеру сформулировал гипотезу: «Любое натуральное число можно представить в виде суммы двух простых чисел». Напишите программу, которая для заданных четных чисел, не превышающих 65536, строит их разложение на сумму двух простых. Входные данные: четное число. Выходные данные: каждая строка должна содержать пару простых чисел, сумма которых равна соответствующему четному, причем первым должно идти меньшее из двух. Пример:Входные данныеВыходные данные525+47 11+41 23+29 P.s. Прошу прощения, что обращаюсь с такой лёгкой задачей, просто после решения 12 задач уже не варит котелок, а препод обязал до вечера 23.02.2014 скинуть коды программ, дал менее суток на 22 задачи.

  1. Дано четное число n > 2. Проверить для него гипотезу Гольдбаха, каждое четное n представляется в виде суммы двух простых чисел.Добавлено через 24 минуты программу нужно выполнить при помощи подпрограмм (условие) нарешал вот тут чуток, токлько работает для 4 и 6, а дальше дампится xD к примеру 34=17+17 представить незахочет

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

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