Напишите программу вычисления наименьшего общего кратного следующих четырёх чисел: 36, 54, 18 и 15. Используйте процедуру вычисления наибольшего общего делителя двух чисел.
Ответ
Наименьшее общее кратное (НОК) двух целых чисел m и n есть наименьшее натуральное число, которое делится на m и n без остатка.
НОД(m, n) и НОК(m, n) связаны соотношением:
НОД(m, n) · НОК(m, n) = m · n.
program nok;
var i, х, у, z, t1, t2: integer;
procedure nod (а, b: integer; var с: integer);
begin
while а<>b do
if а>b then а:=а-b else b:=b-а; с:=а
end;
begin
х:=36; у:=54;
nod (х, у, z);
t1:=x*y div z;
х:=18; у:=15;
nod (х, у, z);
t2:=x*y div z;
x:=t1; y:=t2;
nod (х, у, z); writeln (‘НОК = ‘ , x*y/z);
end.