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

@олесяяяяя · Регистрация: 25.12.2011

Author24 — интернет-сервис помощи студентам

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

@Puporev · 27.01.2012, 08:29

Pascal

uses crt;
procedure Prost(a:integer;var f:boolean);
var i:integer;
begin
if a<2 then f:=false
else
 begin
  f:=true;
  i:=2;
  while (i<=round(sqrt(a))) and f do
  if a mod i=0 then f:=false
  else i:=i+1;
 end;
end;
var  n,k:integer;
     b,f1,f2:boolean;
begin
clrscr;
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
  Prost(k,f1);
  Prost(n-k,f2);
  if f1 and f2 then
   begin
    b:=true;
    writeln(n,'=',k,'+',n-k);
   end
  else k:=k+1;
 end;
if b then write('Гипотеза Гольдбаха для числа ',n,' верна')
else write('Гипотеза Гольдбаха для числа ',n,' не верна');
readln
end.

@олесяяяяя 0 / 0 / 0 Регистрация: 25.12.2011 Сообщений: 58
		1
	Проверить для числа гипотезу Гольдбаха 27.01.2012, 00:35. Показов 1877. Ответов 1 Метки нет (Все метки) Дано четное число n>2. Проверить для этого числа гипотезу Гольдбаха. Эта гипотеза (по сегодняшний день не опровергнутая и полностью не доказанная) заключается в том, что каждое четное n, большее двух, представляется в виде суммы двух простых чисел. (Определить процедуру, позволяющую распознавать простые числа). 0

	27.01.2012, 08:29

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

Решение