Noch ne frage habe hier nen code fürn ggt der mir aber nach kgt vorkommt weiß nicht was von den beiden er jetzt si bitte um aussagen
Delphi-Quellcode:
function ggT(a, b : Integer) : Integer;
VAR r : integer;
begin
if b = 0 then
begin
result := 0;
exit;
end;
while b > 0 do
begin
r := a mod b;
a := b;
b := r;
end;
result := a;
end;