Conjectura de Goldbach

program Questao_3(input{teclado},output{video});

{

A Conjectura de Goldbach diz que "Todo inteiro par maior do que 3 pode ser escrito como a

soma de 2 números primos.". Um número primo é um número maior do que 1 e divisível apenas

por 1 e por ele mesmo. Inspirado na Conjectura de Goldbach, faça um programa em Pascal q-

ue leia do teclado um número N positivo no intervalo [4,1000] e que escreva no vídeo dois

números primos cuja soma seja N.

}

const

Min = 1;

Max = 1000;

type

Vetor = array[Min..Max] of integer;

procedure Ler(var Numero: integer);

var

Contador, Entrada, Sequencia, Referencia, Decremento,

Indice, Inicio, Incremento, Dividendo: integer;

Primos: Vetor;

begin

write(output, 'Entre com um número par no intervalo de 4 a 1000: ');

readln(input, Entrada);

if (((Entrada < 4) or (Entrada > 1000)) or (Entrada mod 2 <> 0 )) then

writeln(output, 'O número deve ser par e estar no intervalo de 4 a 1000.')

else

begin

Indice := 1;

Contador := 0;

Sequencia := 2;

Referencia := 1;

while Sequencia <= Entrada do

begin

while Referencia <= Sequencia do

begin

if ((Sequencia mod Referencia) = 0) then

Contador := Contador + 1;

Referencia := Referencia + 1;

end;

if (Contador = 2) then

begin

Primos[Indice] := Sequencia;

Indice := Indice + 1;

end;

Sequencia := Sequencia + 1;

Referencia := 1;

Contador := 0;

end;

Incremento := 1;

Decremento := Primos[Indice];