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

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

Function NOK(a, b: Longint): Longint;
var   n, m: Longint;

begin

  result := 0;   n := a;   m := b;

  while (a b) do


  if (a < b) then     a := a + n

  else

    b := b + m;   result := a;

end;

Хотите узнать как создать сайт с нуля?