Целочисленная арифметика

[Natochka]

Составьте программу выясняющую, можно ли представить натуральное число в виде суммы двух простых слагаемых

[Mandrivnyk]

Язык какой?

[Natochka]

турбо паскаль

[Serge_Bliznykov]

ПРИМЕРНО ТАК

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

var i, N : LongInt;
begin
    WriteLn('Введите число: ');
    Readln(N);
    i := 1;
    while (i<=N div 2) do begin
        if isPrime(i) and isPrime(N-i) then begin
           WriteLn('исходное число может быть получено суммой ',i,' ',(n-i));
           Break;
        end;
        if i<3 then Inc(i) else inc(i,2);
    end;
end.

[Natochka]

БОЛЬШОЕ СПАСИБО!=)

[Serge_Bliznykov]

оп-с... переменную цикла неверно наращивал..
так лучше:

       if i<3 then Inc(i) else inc(i,2);