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. adicionado 1 minuto depois 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á!