Почитайте!

Нас читают

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

Mail.Ru

Rambler's Top100

Programming Blogs - BlogCatalog Blog Directory


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

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;

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