FredonVendrusk

@Simon Viegas Olá, desculpa a demora. Eu fiz os ajustes que você disse, troquei os I's que estavam no For, por j, k. agora o programa n me retorna nem um valor. Desculpe eu escrevi errado aquela hr, queria dizer que ele estava me retornando numeros IMPARES, mas falei PAR. Veja como está agr:

Program Pzim ;
uses
  CRT;
var 
	j, num, num1, num2, num3, num4,
	k, cont, cont2, cont3, i :integer; 

begin
cont:= 0;
cont2:=0;
cont3:=0;
clrscr; 
write('Digite um número par entre [4, 1000]: ');
readln(num);
if (num < 4 ) then 
begin 
	writeln('O número digitado deve ser maior que 4! ');
end
else
	if (num > 1000 ) then 
	begin 
		writeln('O número digitado deve ser menor que 1000! ');
	end
else
	if ((num mod 2) <> 0 ) then 
	begin 
		writeln('O número digitado deve ser Par! ');
	end;
	for i:=2 to (num div 2) do
	begin
		num1:= i;
		num2:= num - i;
		if (num1 mod 2 <> 0) and (num2 mod 2 <> 0) then
		begin
			for j:=1 to num1 do                         
			begin
				if (num1 mod j = 0) then
				cont:= cont + 1;
			end;
			if (cont = 2) then
				num3:= num1;
			for k:=1 to num2 do
			begin
				if (num2 mod k = 0) then
					cont2 := cont2 + 1;
			end;
			if (cont2 = 2) then
				num4 := num2;
			if (num3 + num4 = num) then
				writeln(num3,'+',num4);
		end;
	end;		               
end.

O enunciado é esse aqui: 

Galera eu to começando a aprender pascal e to com um problema aqui em uma questão de um trabalho. Eu precisaria fazer a  conjectura de Goldbach onde 2 números primos somados poderia dar um número par maior que 4, porém meu codigo está fazendo a soma de dois números pares em vez de números primos. Eu sei que tem muitas coisas erradas ai, o problema é que eu não sei onde estão kkk

Program Pzim ;
uses crt;
var 
		num,num1, num3, num4, cont, cont2, cont3, num2, i:Integer; 
Begin
cont:= 0;
cont2:=0;
cont3:=0;
clrscr; 
write('Digite um número par entre [4, 1000]: ');
readln(num);
	if (num < 4 ) then 
	begin 
		writeln('O número digitado deve ser maior que 4! ');
	end
else
	if (num > 1000 ) then 
	begin 
 		writeln('O número digitado deve ser menor que 1000! ');
  end
else
	if ((num mod 2) <> 0 ) then 
	begin 
		writeln('O número digitado deve ser Par! ');
  end;
		for i:=2 to (num div 2) do
		begin
			num1:= i;
			num2:= num - i;
			if (num1 mod 2 <> 0) and (num2 mod 2 <> 0) then
			begin
				 for i:=1 to num1 do                         
				 begin
				 	if (num1 mod i = 0) then
				 	cont:= cont + 1;
				 end;
         	if (cont = 2) then
         	num3:= num1;
         	
				 for i:=1 to num2 do
				 begin
				 	if (num2 mod i = 0) then
				 	cont2:= cont2 + 1;
         	if (cont2 = 2) then
         	num4:= num2;
				 end;
					if (num3 + num4 = num) then
					writeln(num3,'+',num4);
			end;
		end;		               
End.

@devair1010 Muito obrigado. Desculpe por n postar a minha duvida da forma correta, é a primeira vez que eu estou postando algo nesse forum. Obrigado mesmo.

Ola, boa noite!

Eu comecei a estudar pascal, mas estou com um problema em um determinado exercicio.

1) Faça um programa em Pascal que receba um valor (inteiro) N. Após isso, devem ser inseridos os nomes de N pessoas e seus respectivos pesos e idades. Ao final seu algoritmo deve mostrar:

O nome e peso da pessoa mais pesada.

O nome e peso da pessoa mais leve.

O nome e idade da pessoa mais velha.

O nome e idade da pessoa mais nova.

Eu fiz o codigo baseado no que eu achei estar certo, mas está dando algum problema que se chama "tipo invalido na operação de maior"  alguém poderia me ajudar? Olhem meu codigo.

Program Pzim ;
uses crt;

var num: array[1..10] of integer;
        idade: array[1..10] of integer;
        nome: array[1..10] of string;
        peso: array[1..10] of real;
        idademaior, idademenor, i: integer;
        pesomaior, pesomenor: Real;
        novonome, novonome2, novonome3, novonome4:String;
Begin
    pesomaior:=0;
    pesomenor:=0;
    idademaior:=0;
    idademenor:=0;
    for i:=1 to 10 do
    begin
        writeln('Digite o ',i,'° número: ');
        readln(num); 
        writeln('Digite o ',i,'° peso: ');
        readln(peso);
        writeln('Digite o ',i,'° nome: ');
        readln(nome);
        writeln('Digite a ',i,'° idade: ');
        readln(idade);
        if (pesomaior < peso) then
        begin
            pesomaior:= peso;
            novonome:= nome;
        end;
        if (pesomenor > peso) then
        begin
            pesomenor:= peso;
            novonome2:= nome;
        end;
        if (idade > idademaior) then
        begin
            idademaior:= idade;
            novonome3:= nome;
        end;
        if (idade < idademenor) then
        begin
            idademenor:= idade;
            novonome4:= nome;
        end;
    end;
    writeln('O nome da pessoa mais pesada é ',novonome,' e seu peso é',pesomaior);    
    writeln('O nome da pessoa mais leve é ',novonome2,' e seu peso é',pesomenor);
    writeln('O nome da pessoa mais velha é ',novonome3,' e sua idade é',idademaior);
    writeln('O nome da pessoa mais nova é ',novonome4,' e sua idade é',idademenor);
End.

Olá boa tarde.

Gostaria de saber se alguém conhece algum Kit Upagrade que venha incluso placa-mãe, processador, cooler e memória Ram até 1000 reais? Eu queria dar uma melhora do meu PC, ele é um Celeron de 2gbs de ram. Eu pretendo trocar a placa-mãe dele por um kit bonzinho para jogar alguns jogos que não rodam nele nem no low, como fortnite, Lol, Cs Go, etc. Mas também gostaria de  reaproveitar a fonte dele e o Hd, Caso eu troque a placa-mãe preciso trocar a fonte também? Pois ela é um pouco antiga também, não sei se ela suporta tal especificações. Obrigado desde já!