mathiaspl20

Untitled

Nov 5th, 2019
72
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. algorithm Primfaktorzerlegung(↓zahl):
  2. param int ↓zahl;
  3. local int faktor = 2;
  4.  
  5. writeln ();
  6. write ("Eingabe: ", ↓zahl);
  7.  
  8. if zahl == 0 or 1
  9. writeln ();
  10. write ("Ausgabe: ", ↓zahl);
  11.  
  12. else
  13. writeln ();
  14. write ("Ausgabe: ");
  15. while zahl > 1 do
  16. while zahl modulo faktor > 0 do
  17. faktor = faktor + 1;
  18. end
  19.  
  20. if not zahl == faktor then
  21. write (↓faktor);
  22. end
  23. zahl = zahl / faktor;
  24. end
  25. end
  26. end
RAW Paste Data