collatz.ppp

" ----------------------------------------------------"
"|                                                    |"
"|    Este programa imprime la sucesión de números    |"
"|       generados con la conjectura de Collatz       |"
"|                                                    |"
"| https://es.wikipedia.org/wiki/Conjetura_de_Collatz |"
"|                                                    |"
" ----------------------------------------------------"
"\nIngrese un número:"
n<<n;
if(n>1)
	i= n;
	count=0;
	"> "+i
	while(i!=1)
		resto= i/2.0 - i/2;
		if(resto>0.0)
			i=3*i+1;
		end
		if(resto==0.0)
			i/=2;
		end
		"> "+i
		count+=1;
	end
	count + " pasos en total"
end
if(n<=1)
	"n debe ser mayor que 1"
end