Bruno Gabriel de Andrade

Bom dia, já corrigi, defini y e z de 0 a 9, obrigado , att Bruno

Ola Simon ,

Consegui resolver o exercício de uma forma mais fácil.

Program Pzim ;
var x,y,z,num :integer;
begin
  for x:=1 to 9 do
  begin
    for y:=1 to 9 do
    begin
      for z:=1 to 9 do
      begin
        num:=(x*100)+(y*10)+ z;
        if ((x*x*x)+(y*y*y)+(z*z*z)=num) then writeln(num);
      end;
    end;
  end;
  readln;
end.

OBRIGADO PELA AJUDA

#DECOMPOSICAO DE UM NUMERO

#COMO SOMAR OS ALGARISMOS DE UM NUMERO

Boa noite, estou tendo problemas na impressão e com o valor 1, quais dicas me dao ? 

Program repetvetorvetor;
Var
Vetor1, vetor2: array [1..100] of integer;
i,j:integer;
Begin
  For i:=1 to 5 do
  Begin
    Writeln ( 'digite o número da posição ' , i );
    Readln (vetor1);
  End;
  For i:= 1 to 5 do
  Begin
    For j:=1 to 5 do
    Begin
      If (vetor1 <> vetor1 [j]) then
      Vetor2[j]:=1
      Else
      Vetor2[j]:= vetor2[j] + 1 ;
    End;
  End;
  For i:= 1 to 5 do
  Begin
    For j:=1 to 5 do
    Begin
      If (vetor1 <> vetor1 [j]) then
      Writeln ( ' o número  de vezes que o numero ',vetor1,' , de posicao ',i,'se repetiu foram ',vetor2);
    end;
  end;
end.

Não estou conseguindo voltar ao menu principal.

Nesse caso eu necessito usar ponteiro, ou , usar registro , pedindo ao usuário o nome dos estados listados?

Program Pzim ;
CONST SAIR=3;
type frotadeumestado=record
  nome_Estado: string;
  total_veiculos:integer;
  total_acidentes: integer;
  
END;
var  option,option2:integer;
continuar: char;
frota: frotadeumestado;
Begin
  REPEAT
    writeln('BEM VINDO AO SISTEMA DETRAN SUL-SUDESTE-CENTROOESTE 2017');
    WRITELN('1-INSERIR DADOS DE UM ESTADO');
    WRITELN('2-ANALISAR ACIDENTES E FROTA ATUAL');
    WRITELN('3-SAIR');
    WRITELN('DIGITE O NUMERO DA OPCAO DESEJADA' );
    READLN(OPTION);
    
  UNTIL (OPTION=1) OR (OPTION=2)  OR (OPTION=3) or (continuar='s');    // como faco para voltar ao menu inicial
  if (OPTION=1) then
  begin
    CLRSCR;
    writeln('digite o nome do estado do veiculo');
    readln(frotadeumestado.nome_estado);
    writeln('digite o TOTAL DE  veiculos do estado');
    readln(frotadeumestado.total_veiculos);
    writeln('digite o total de acidentes do estado');
    readln(frotadeumestado.total_acidentes);
    i:=i+1;
    writeln('DADOS DO ',frotadeumestado.nome_estado,' CADASTRADOS COM SUCESSO!!');
    repeat
      writeln('deseja continuar? s/n');
      readln(continuar);
    until (continuar='s') or (continuar='n')
  end;
  IF  (OPTION=2) THEN
  BEGIN
    CLRSCR;
    REPEAT
      writeln('BEM VINDO AO SISTEMA DETRAN SUL-SUDESTE-CENTROOESTE 2017 ');
      writeln('0-MAIOR E MENOR INDICE DE ACIDENTES E ONDE ELES OCORRERAM ');
      writeln('1-PERCENTUAL DE VEICULOS DE CADA ESTADO ') ;
      writeln('2- MEDIA DE ACIDENTES EM CADA ESTADO ')  ;
      WRITELN('3-SAIR');
      WRITELN('4-VOLTAR AO MENU ANTERIOR');
      WRITELN('DIGITE O NUMERO DA OPCAO DESEJADA' );
      READLN(OPTION2);
    UNTIL (OPTION2=0) OR (OPTION2=1)  OR (OPTION2=2) OR (OPTION2=3) OR (OPTION2=4) ;
    
    if  (OPTION2=0) then
    begin
      
      
      
    end ;
  end;
  
End.

Boa tarde meus queridos

Estou com dificuldades em decompor números, seguindo o sistema decimal, por exemplo, o 100 em 1 + 0 + 0

Como posso fazer isso, seria para o seguinte exercício :

Muito obrigado, vou mandar o código aqui, ele está compilando e executando certinho.

Program Pzim ;
var n,resultado,contador:integer;
Begin
  writeln('digite um numero para aplicarmos a conjectura de collartz, mostrando cada resultado e quantas vezes foi aplicado');
  readln(n);
  while (n<>1) do
  begin
    if (n mod 2= 0) then
    begin
      n:= n div 2;
      contador:= contador+1;
      write(n,' ')
      end
      else 
      begin
        n:=(3*n)+1 ;
        contador:=contador+1;
        write(n,' ')
      end;
    end;
    writeln('o numero de vezes que foi utilizado a conjectura foi de ',contador)
  End.

Boa tarde meus queridos, estou com um problema no seguinte exercício: 

ele compila mas não da a resposta correta

Program Pzim ;
var n,i,j,resultado,contador:integer;
Begin
  writeln('digite um numero para aplicarmos a conjectura de collartz, mostrando cada resultado e quantas vezes foi aplicado');
  readln(n);
  For resultado:=n to 1 do
  begin
    if (n mod 2<>0) then
    begin
      resultado:=(3*resultado)+1 ;
      contador:= contador+1;
      writeln(resultado)
        end
    else
    begin
      resultado:=resultado div 2 ;
      contador:= contador+1;
      writeln(resultado)
        end;
  end;
 writeln(contador) 
End.

Não consigo percorrer e entender os ponteiros, a minha inclusão ta bem ruim , preciso inclui de acordo com o ultimo ponteiro ne, como encontro o ultimo ponteiro ?

Program COPA ;

const
SAIR = 8;

TYPE
ponteiro_time = ^time;

time = RECORD
  nome: string [30];
  qtdpontos: integer;
  golsmarcados: integer;
  golssofridos: integer;
  prox: ponteiro_time;
END;

var
atual: ponteiro_time; //aponta para elemento da lista de time
inicio: ponteiro_time; // ponteiro para o in?cio da lista
ponteiro_auxiliar:
ponteiro_time;
times: time;
opcao, codigo: integer;
continuar:char;

procedure menu;
begin
  writeln('******* Menu de Opções *******');
  writeln('Escolha uma opcao:');
  writeln('1 – Incluir Time');
  writeln('2 – Mostrar o número de pontos, gols marcados e gols sofridos de um time');
  writeln('3 – Listar ordenadamente todos os times');
  writeln('4 – Mostrar os 4 primeiros times na classificação');
  writeln('5 – Mostrar os 4 últimos times na classificação');
  writeln('6 – Mostrar time com o melhor ataque');
  writeln('7 – Mostrar time com a defesa mais vazada');
  writeln('8 - Sair');
  readln(opcao);
end;

//cria uma lista vazia
procedure cria_lista (var lista: ponteiro_time);
begin
  lista:= nil;
  atual:=lista;
end;

//retorna verdadeiro se a lista est? vazia e falso caso contr?rio
function lista_vazia (var lista: ponteiro_time): boolean;
begin
  if (lista = nil) then
  lista_vazia := true
  else
  lista_vazia := false;
end;

procedure incluir_time ;
begin
  writeln('DIGITE O NOME DO TIME');
  readln(time.nome);
  writeln('DIGITE A QUANTIDADE DE PONTOS DO TIME');
  readln(time.qtdpontos);
  writeln('DIGITE O TOTAL DE GOLS MARCADOS PELO TIME');
  readln(time.golsmarcados);
  writeln('DIGITE O TOTAL DE GOLS SOFRIDOS PELO TIME');
  readln(time.golssofridos);
end;


procedure localiza
writeln('digite o time a ser localizado');
readln (x);
repeat
  ponteiro_time=atual;
  ponteiro_time=prox;
until (ponteiro_time=x) or (ponteiro_time=nil);
if (ponteiro_time=x) then
writeln('time encontrado com sucesso, sua quantidade depontos é' time.qtdpontos', seus gols marcados totalizam 'time.golsmarcados', seus gols sofridos totalizam'time.golssofridos);
else writeln('o time nao existe, para incluí-lo basta voltar ao menu e ir na opcao 2, digite s/n para voltar ao menu ');
readln (continuar);
if (continuar=s) then (menu)
else (sair=8);

Begin
  repeat
    menu;
    if (opcao=1) then
    lista_vazia
    cria_lista
    incluir_time
    else if   (opcao=2) then
    localiza
    else if (opcao=3) then 
    ordena
      else if (opcao=4) then 
    quatro_primeiros
        else if (opcao=5) then 
    quatro_ultimos
        else if (opcao=6) then 
    maior_golsmarcados
          else if (opcao=7) then 
    menor_golssofridos;
    
  until opcao = SAIR;
End.

Ola,

Estou com dúvida nesse exercício, não estou sabendo trabalhar os ponteiros nele

Se alguém puder fazer algumas procedures para eu conferir

Fiz uma para cada item, inclusive a do menu