Напишите программу нахождения НОК двух не нулевых чисел язык pascal

Question

Информатика

Федан

27 июля, 17:51

Напишите программу нахождения НОК двух не нулевых чисел язык pascal

+5

Ответы (1)

Знаешь ответ?

Христина · Answer 1

Program LeastCommonMult; var m, n, prod: word; begin readln (m, n); prod : = m * n; while m n do begin if m > n then begin m : = m - n end else begin n : = n - m end end; writeln (prod div m) end.