Программирование на Delphi и не только НОД двух натуральных чисел | Программирование на Delphi и не только

Delphi FAQ >> Алгоритмы

function NOD(a, b: Longint): Longint;
begin
  while (a 0) and ( b 0) do
  if (a > b) then
    a := a mod b
  else
    b := b mod a;
  if (a = 0) then     result := b

  else

    result := a;

end;

Отличные курсы английского языка в Англии