Главная » Помощь в учебе » Школьные знания, ответы и решения школьных заданий » Информатика

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

Нашли ошибку? Напишите нам
0.0/5, Голосов: 0

Учебник по Информатике 9 класс Семакин

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

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.