wie genau programmier i das GGT?

[Niels]

Ich hab hier noch ne kurze Version von ggT. Ist halt rekursiv und deshalb vieleicht net so einfach verständlich.

Delphi-Quellcode:

function ggt(a,b:longint): longint;
begin
  if b = 0 then result := a;
  else
  result := ggt(b,a mod b);
end ggt;