Eigentlich war schon alles vorhanden, was benötigt wurde. Und im Wiki (
(Euklidischer Algorithmus Rekursive Variante) stand
auch noch fast die ganze Lösung:
Code:
euclid(a,b)
begin
wenn b=0 dann return a
sonst return EUCLID(b, a mod b)
end
Und den KgV hätte er sich damit auch ableiten können:
Code:
kgv(a,b)
begin
return ((a*b)/euclid(a,b));
end