циклические процессы

[felmor]

Узнать, можно ли записать заданое число в виде 2-ух простых чисел.

[Stilet]

Ну и что непонятного? Паскаль не знаешь или алгоритм неясен?

[Plague]

http://ru.wikipedia.org/wiki/Проблема_Гольдбаха

[Last]

Быть может мой алгоритм не из лучших, но можно организовать проверку чисел решетом Эратосфена.
Пусть дано число N, определить можно ли записать его в виде суммы двух простых.
1)Решетом Эратосфена определяем значения простых чисел < N и их количество(пусть их X штук)
2)По ходу определения создаём массив A из этих чисел
3)В цикл от 1 до Х(for i) вкладываем ещё один такой же цикл(for j) и проверяем если A[i]+A[j]=N выводим на экран сообщение о том, что можно, в противном случае о том, что нельзя.

[CrazyRabbit]

любое четное число больше двух можно представить в виде суммы 2 простых чисел!

function Prost(m:longint):boolean;
var i,kol:longint;
begin
kol:=0;
for i:=2 to trunc(sqrt(m)) do
if m mod i=0 then
 inc(kol);
if kol<>0 then
 Prost:=false;
 end;

var n,i:longint;
begin
write('vvedite chislo ');
readln(n);
 i:=2;
  while i<=(n div 2)+1 do
   begin
    if prost(i) then
     if prost(n-i)then
       begin
	writeln('YES');
	 write(i,' ',n-i);
	 halt;
       end;
    if i=2 then
     inc(i)
      else
       inc(i,2);
  end;
   writeln('NO');
   end.