2017

Bom 2017 a todos

4 de jul de 2014

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

Nenhum comentário:

Em destaque

Verbos

Atividade desenvolvida para planilha eletrônica pelo multiplicador Ademir dos Santos há alguns anos, resolvi colocar online usando recursos ...