Delphi-Quellcode:
ShowMessage('Die Zahl '+ IntToStr(a)+
' hat die Primfaktorzerlegung '+Zerlegung+ IntToStr(c)); // <--- hier stolperts
Hier ist der Workaround:
Delphi-Quellcode:
begin
Primteiler:= c div b;
if primteiler <> 1 then
Zerlegung:= Concat(Zerlegung,' x ',IntToStr(Primteiler));
end;
An sich hättest Du da auch selber drauf kommen können.
Haltepunkt setzen, F8 benutzen und Variablen anschauen (Strg-F5).
Grüße
Klaus