kleinster gemeinsamer Teiler

[inherited]

Delphi-Quellcode:

function kleinstergemeinsamerteiler(a, b: Integer): Integer;
begin
  result := 1;
end;

Aufruf:

Delphi-Quellcode:

var i: Integer;
[...]
  i:=kleinstergemeinsamerteiler(60, 45);