СоСоставьте программу нахождения наименьшего общего кратного (НОК) двух чисел, используя формулу:

А × В = НОД(А, В) × НОК(А, В).ставьте

Ответ:

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

begin

 while a <> b do

   if a > b then a:=a-b

   else b:=b-a;

 NOD:=a

end;

begin

 var a:=ReadInteger('A=');

 var b:=ReadInteger('B=');

 Writeln('HOK=',(a*b) div NOD(a,b))

end.

Тестовое решение:

A= 18

B= 42

HOK=126