Pascal/Delphi numero narcisista pascal decompor e somar cubo

[Bruno Gabriel de Andrade]

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 :

 

[Simon Viegas]

Uma forma seria tratando os números como string. No Pascal, uma string é análogo a uma array of char, por exemplo:

strNumero:=789;
writeln(strNumero[2]); //vai exibir o número 8

Ou seja, para o programa, converte o número todo para string, para cada uma das 3 casas, acessa a sua posição, converte para integer, eleva ao quadrado e soma ao total.

[Bruno Gabriel de Andrade]

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

 

[Simon Viegas]

1#

10 horas atrás, Bruno Gabriel de Andrade disse:

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

A técnica ficou bem melhor!!!

 

Mas ainda está incompleto.Aqui só está exibindo 2 números, mas deveriam ser 4.

 

Lembre-se que deve calcular todos os números entre 100 e 999.

Dica: perceba que o primeiro número no seu código é o 111... já tem algo errado aí!

 

 

 

2#

A título de exemplificação, alguns begin/end do código são facultativos. Poderia ficar assim:

Program Pzim ;
var x,y,z,num :integer;
begin
  for x:=1 to 9 do
    for y:=1 to 9 do
      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;
  readln;
end.

 

 

***

 

No aguardo.

 

[Bruno Gabriel de Andrade]

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