Наименьшим общим кратным (НОК) двух целых чисел a ¹ 0 и b ¹ 0 называется такое наименьшее положительное целое число, которое делятся на a и b. Известно, что НОК(a,b) = ab/НОД(a,b).

{NOK.pas

Сайт Algorithm (http://www.algorithm1.narod.ru/)

Автор проекта: Galina}

 

var a1,b1,f:integer;

function nok(a, b:integer):integer;

var r, r_1, r_2:integer;

begin

  if a*b=0 then begin write('нет НОК');Halt end;

  r:=a; r_1:=b;

  while r_1 <> 0 do

   begin

    r_2:=r mod r_1;

    r:=r_1;

    r_1:=r_2;

   end;

  nok:=abs(a*b div r);

end;

 

begin

  writeln('Введите a1');

  readln(a1);

  writeln('Введите b1');

  readln(b1);

  f:=nok(a1,b1);

  writeln('nok a1 i b1 = ',f);

end.