Question

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

Answer 1

var a, b, c, d, i, n :integer;
procedure swap (a, b :integer; c, d :integer);
begin
   if a>b then begin c:=a; d:=a; end
      else begin c:=b; d:=a; end;
end;
begin
   read (a, b);
   swap(a, b, a, b);
   for i:=1 to a do if (a mod i=0) and (b mod i=0) then c:=i;
   write (a*b/c);
end.