Desafio dos Quadrados Positivos

Um problema de matemática interessante que encontrei num fórum com a solução por meio da linguagem Logo: "Encontre cada inteiro positivo que seja uma unidade maior que a soma dos quadrados de seus algarismos".
Resposta: Os números são 35 e 75 (não há outro!).

Caso do 35	Caso do 75
35 = 3 e 5 32 = 9 52 = 25 9 + 25 = 34 35-34 = 1	75 = 7 e 5 72  = 49 52 = 25 49 + 25 = 74 75 - 74 = 1

Solução no xLogo:	Solução no FMSLogo
aprenda xx limpetexto para [n 1 100][ atribua "a primeiro :n atribua "b último :n atribua "c potência :a 2 atribua "d potência :b 2 atribua "e :c + :d se :n - :e = 1 [mostre :n]] fim	aprenda xx ljc repita 100 [ atribua "a primeiro contevezes atribua "b último contevezes atribua "c potência :a 2 atribua "d potência :b 2 atribua "e :c + :d se contevezes - :e = 1 [mostre contevezes]] fim

---

Segue texto original:

Encuentra todos los enteros positivos que son una unidad mayor que la suma de los cuadrados de sus cifras.

Los numeros son 35 y 75, (no hay mas!)

Caso del 35

35 = 3 y 5
3^2 = 9
5^2 = 25
25 + 9 = 34
35-34 = 1

Caso del 75

75 = 7 y 5
7^2 = 49
5 ^2 = 25
49 + 25 = 74
75 -74 = 1

Solucion Logo:

TO XX

CT

FOR [N 1 100][

MAKE "A FIRST :N

MAKE "B LAST :N

MAKE "C POWER :A 2

MAKE "D POWER :B 2

MAKE "E :C + :D

IF :N - :E = 1 [PRINT :N]]

END