Олимпиадное задание.

[ALex25153]

Задача 1. Проблема Гольдбаха— 100 баллов
В 1742 году Христиан Гольдбах послал письмо Леонарду Эйлеру, в котором высказал следующее предположение: «Каждое нечётное число большее 5 можно представить в виде суммы трёх простых чисел». Эйлер заинтересовался проблемой и выдвинул более сильную гипотезу: «Каждое чётное число большее двух можно представить в виде суммы двух простых чисел». Это утверждение называется бинарной проблемой Гольдбаха и остается недоказанным до настоящего времени.
Требуется написать программу, производящую согласно утверждению Гольбаха, разложение заданного чётного числа на сумму двух простых чисел. Из всех пар простых чисел, сумма которых равна заданному числу, требуется найти пару, содержащую наименьшее простое число.
Технические требования.
Имя входного файла: INPUT.TXT. Имя выходного файла: OUTPUT.TXT
Формат входных данных:
Первая строка входного файла содержит целое четное число N (4 ≤ N ≤ 100000).
Формат выходных данных:
Единственная строка выходного файла содержит пару простых чисел, сумма которых равна числу N. Первым выводится наименьшее число.
Примеры файлов входных данных: Соответствующие примеры файлов выходных данных:
8

3 5

992

73 919

Кто может подсказать как это решать?

[IT-man]

ввод из файла сами крутите)

function isPrime(X: LongInt): boolean; {(c) Serge_Bliznykov}
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
     C,k:integer;
begin
Readln(c);k:=1;
While (isprime(k)<>isprime(c-k)) do begin
inc(k);
repeat
inc(k);
until isPrime(k);
end;
writeln(k,'+',c-k);
readln;
end.

[ALex25153]

Это я так понимаю паскаль? Или С++?

[IT-man]

Это я так понимаю паскаль?

Правильно понимаешь)

[ALex25153]

Спасибо будем разбираться =)