Почитайте!

Нас читают

Статьи о программировании и не только

Mail.Ru

Rambler's Top100

Programming Blogs - BlogCatalog Blog Directory


НОД двух натуральных чисел

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;


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