Matemáticas para óptica y optometría/1. Introducción Número de factores primos «math xmlns="http://www.w3.org/1998/Math/MathML"»«mi»#p«/mi»«/math»?]]> 1 0.1 0 0 0 #sol «session lang=¨ca¨ version=¨2.0¨»«library closed=¨false¨»«mtext style=¨color:#ffc800¨ xml:lang=¨es¨»variables«/mtext»«group»«command»«input»«math xmlns=¨http://www.w3.org/1998/Math/MathML¨»«mi»p«/mi»«mo»=«/mo»«mn»1«/mn»«/math»«/input»«/command»«command»«input»«math xmlns=¨http://www.w3.org/1998/Math/MathML¨»«apply»«csymbol definitionURL=¨http://www.wiris.com/XML/csymbol¨»while«/csymbol»«mrow»«mi»grau«/mi»«mo»(«/mo»«mi»p«/mi»«mo»)«/mo»«mo»§lt;«/mo»«mn»5«/mn»«/mrow»«mtable»«mtr»«mtd»«mi»a«/mi»«mo»=«/mo»«mi»aleatori«/mi»«mo»(«/mo»«mn»3«/mn»«mo».«/mo»«mo».«/mo»«mn»7«/mn»«mo».«/mo»«mo».«/mo»«mn»1«/mn»«mo»)«/mo»«/mtd»«/mtr»«mtr»«mtd»«mi»na«/mi»«mo»=«/mo»«mi»aleatori«/mi»«mo»(«/mo»«mo»{«/mo»«mn»1«/mn»«mo»,«/mo»«mn»2«/mn»«mo»}«/mo»«mo»)«/mo»«/mtd»«/mtr»«mtr»«mtd»«mi»p«/mi»«mo»=«/mo»«mi»p«/mi»«mo»*«/mo»«mo»(«/mo»«mi»x«/mi»«mo»-«/mo»«mi»aleatori«/mi»«mo»(«/mo»«mo»-«/mo»«mi»a«/mi»«mo».«/mo»«mo».«/mo»«mi»a«/mi»«mo».«/mo»«mo».«/mo»«mi»na«/mi»«mo»)«/mo»«mo»)«/mo»«mo»§Hat;«/mo»«mi»na«/mi»«/mtd»«/mtr»«/mtable»«/apply»«/math»«/input»«/command»«command»«input»«math xmlns=¨http://www.w3.org/1998/Math/MathML¨»«mi»r0«/mi»«mo»=«/mo»«mi»factoritza«/mi»«mo»(«/mo»«mi»p«/mi»«mo»)«/mo»«/math»«/input»«/command»«command»«input»«math xmlns=¨http://www.w3.org/1998/Math/MathML¨»«mi»r1«/mi»«mo»=«/mo»«mi»factoritza«/mi»«mo»(«/mo»«mi»p«/mi»«mo»,«/mo»«mo»{«/mo»«mi»multiplicitats«/mi»«mo»=«/mo»«mi»fals«/mi»«mo»,«/mo»«mi»compta_multiplicitats«/mi»«mo»=«/mo»«mi»fals«/mi»«mo»}«/mo»«mo»)«/mo»«/math»«/input»«/command»«command»«input»«math xmlns=¨http://www.w3.org/1998/Math/MathML¨»«mi»sol«/mi»«mo»=«/mo»«mi»longitud«/mi»«mo»(«/mo»«mi»r1«/mi»«mo»)«/mo»«/math»«/input»«/command»«/group»«/library»«/session»editor=true