Составьте программу нахождения наименьшего общего кратного (НОК) двух чисел, используя формулу
Составьте программу нахождения наименьшего общего кратного (НОК) двух чисел, используя формулу: А*В = НОД(А, В)*НОК(А, В).
Program zad_3_nica;
var A, B, C: real;
begin
write ('Введите A: ');
read (A);
write ('Введите B: ');
read (B);
C:=A*B;
while (A<>B)
do begin
if A>B
then A:=A-B
else B:=B-A
end;
C:=C/A;
writeln ('НОК(A,B)=', C)
end.