Vielleicht ist auch der größte gemeinsame Teiler gemeint? oO
Delphi-Quellcode:
function ggt(i, j:integer):integer;
begin
i := abs(i);
j := abs(j);
if ((i = 0) or (j = 0)) then
begin
result := 1;
exit;
end;
while i <> j do
if i > j then
i := i - j
else
j := j - i;
result := i;
end;
//Edit: Habe die 0 vernachlässigt
//Re-Edit: Und durchs "Verbessern" Javasyntax reingewurstet
