Least common multiple/ru

From Free Pascal wiki

English (en) suomi (fi) français (fr) русский (ru)

Наименьшим общим кратным (НОК) двух целых чисел [math]a[/math] и [math]b[/math] является наименьшее положительное целое число, которое делится на оба числа [math]a[/math] и [math]b[/math].

Например: для чисел 12 и 9 наименьшим общим кратным будет число 36.

Функция leastCommonMultiple

function leastCommonMultiple(a, b: Int64): Int64;
begin
  result := b * (a div greatestCommonDivisor(a, b));
end;
Note-icon.png

Примечание: Функция greatestCommonDivisor должна быть объявлена перед функцией leastCommonMultiple.

См. также