Представьте четное число n (2 Пример ввода: 110 Вывод: 7+103 Составьте Паскаль программы...

Question

Представьте четное число n (2 Пример ввода:
110
Вывод:
7+103
Составьте Паскаль программы срочно нужно плиииз

Comments

Непонятно: есть четное число и что дальше, как его представить? В виде суммы двух нечетных? Так решения множество. Или в виде суммы двух простых чисел, как у Вас в примере? Так не любое число можно так представить. Разберитесь и поясните, что требуется.

---

(2<n<100000)

---

В виде суммы простых чисел

---

Так мы проблему Эйлера будем решать?

---

А как предлагаете быть с неоднозначностью? 43+67, 37+73, 31+79, 13+97, 7+103, 3+107, 1+109

Answer 1

Function IsPrime(m: integer): boolean;
var
  i: integer;
  p: boolean;
begin
  p := true;
  for i := 2 to m - 1 do
    if (m mod i) = 0 then p := false;
  IsPrime := p
end;

var
  n, i, j: integer;
  flag: boolean;

begin
  repeat
    Write('Введите натуральное число, большее 2 :');
    Readln(n);
    flag := (n < 2) or (n mod 2 = 1);
    if flag then
      Writeln('Число введено с нарушением, повторите ввод');
  until not flag;
  Writeln('Варианты представления числа в виде суммы двух простых:');
  for i := 1 to n do
    for j := 1 to (n div 2) do
      if (IsPrime(i) and IsPrime(j)) and (i + j = n) then writeln(i, '+', j);
end.

Тестовое решение:

Введите натуральное число, большее 2: 110
Варианты представления числа в виде суммы двух простых:
67+43
73+37
79+31
97+13
103+7
107+3
109+1

Comments

Если надо числа, большие 32767 и в системе TurboPascel, замените тип integer на longint.