1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
|
Eingabe N: Natürliche Zahl
Ausgabe PrimFak: Menge der Prim-Faktoren von N
PrimFak := {};
While N>1 do
NächsterTeiler (N,T)
N := N/T Füge T zu PrimFak
Funktion NächsterTeiler (Eingabe: N, Ausgabe:T)
T:=2
While N mod T != 0 do T:= T+1
|