;primes(found)=p<BR>
end <BR>
end
<div align="right">
====תרגיל 3 - פירוק מספר שלם לגורמים ראשוניים====
פרקו מספר שלם <math>k\leq 1000</math> לגורמים ראשוניים (אפשר להשתמש בוקטור primes מהתרגיל הקודם).
<div align="left">
;k=252<BR>
while k>1<BR>
;i=2<BR>
while mod(k,primes(i))!~=0<BR>
;i=i+1<BR>
end<BR>
;((disp(primes(i<BR>
;(k=k/primes(i<BR>
end
<div align="right">