подпрограмма-процедура в Pascal

[Танюсик]

Здравствуйте, многоуважаемые программисты=))))
Помогите мне плиз решить одну такую малюсенЬкую задаЧку!))...
вот она:"Дано четное число К>2. Проверить для него гипотезу Гольдбаха: любое число большее 2 представимо в виде суммы двух простых чисел. Написать процедуру, позволяющую для заданного К найти эти простые числа".
Заранее спасиБки=))))

[mihali4]

Напишите математическое решение задачи, а мы вам поможем оформить его в подпрограмму-процедуру.
Давайте решение.

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

Наверно недождемся...

Так я ей мягко и намекнул, что и она не дождется
[OFF]
В последнее время просто наплыв "блондинок", называющих себя кошачьими именами и считающих, что тут все настолько сексуально озабочены, что тут же бросятся выполнять для них задания сломя голову...
[/OFF]

[SunKnight]

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

Давайте решение.

Наверно недождемся, т.к. такие топики, в большенстве случаев, направлены на поиск халявного решения. Они (залетные юзеры) думают что если форум программерский, так значит мы должны для них и за них решать.

[Serge_Bliznykov]

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

[gred]

Вопрос не очень понял ну врод так(только доделать надо)

Var n,item1:integer; hypot:boolean;
Function Simple(n:integer):boolean;
Var i:integer;
simp:boolean; {simp=False, если встретится делитель числа n}
begin
if n=2 then Simple:=True
else if n mod 2=0 then Simple:=False
else begin
simp:=True;
i:=3;
while (i<=trunc(sqrt(n))) and simp do
if n mod i=0 then simp:=False
else i:=i+2;
if simp then Simple:=True else Simple:=False;
end;
end;
BEGIN
n:=1; {условно для выполнения цикла}
while n mod 2 = 1 do
begin
write('n='); readln (n);
if n mod 2 = 1 then writeln('Число n должно быть четным!')
end;
hypot:=False;
if n=4 then begin {проверяем и число 4}
item1:=2;
hypot:=True
end
else begin {n>4}
item1:=3;
while (item1<=n div 2) and not hypot do
if Simple(item1) and Simple(n-item1) then hypot:=True
else item1:=item1+2
end;
if hypot then
begin
writeln('Для данного n гипотеза справедлива');
writeln('Простыми слагаемыми являются числа ',item1,' и ',n-item1) end
else writeln('Для данного n гипотеза не справедлива');
END.

Чтот злые вы стали товарищи программисты добрее надо быть

[puporev]

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

program prost_chis;
uses crt;
var k,m:longint;//если не будете исследовать большие числа, можно Word;
function Prost(n:longint):boolean;//функция для определения простых чисел
var i:longint;
begin
  for i:=2 to (n div 2) do
  if n mod i=0 then
    begin
      Prost:=false;
    end;
end;
Procedure Goldbah(n:longint);//процедура нахождения нужных чисел
var i,p:longint;
begin
  p:=0;
  for i:=1 to n div 2 do
  if Prost(i)and Prost(n-i)then //если оба слагаемые простые числа
    begin
       writeln(i,'+',n-i);  //выводим их на экран
       p:=p+1;
       if p mod 20=0 then   //если таких пар больше 20, то после 20 делаем паузу
       readln;
    end;
end;

[Танюсик]

огромное ВАМ спасибо!...=))))