Kann mir bitte jemand helfen schaffe es nicht den ggt von 3 zahlen zu berechnen von 2 zahlen habe ich es shcon geschafft aber ich schaffe es nciht mit 3 zahlen.
Delphi-Quellcode:
function ggt2 (z1,z2,z3:integer): integer;
var
r:integer;
begin
if z3=0 then
begin
result:=0;
end;
while z3 > 0 do
begin
r := z1 mod z2 mod z3;
z1:= z3;
z2:= r;
end;