Страница 101-107 §2.4 номер 4, ГДЗ по информатике за 9 класс к учебнику Босовой

NОК(a,b) – наименьшее общее кратное, которое делится без остатка на a и b.

NОD(a,b) – наибольший общий делитель, который делит a и b без остатка.

NOD(a,b)*NOK(a,b)=a*b  - формула связи NOD и NOK

program z_4;

var

  a, b, c, d, n, m, nok: integer;

procedure nod(x, y: integer; var nod: integer);

begin

  while x <> y do

    if x > y then x := x - y else y := y - x;

  nod := x;

end;

begin

  write('Введи четыре числа>>');

  readln(a, b, c, d);

  nod(a, b, n);//в n передается значение nod - наибольшего общего делителя

  m := a * b div n;//nok двух первых чисел

  nod(c, m, n);//nod - третьего числа и nok первых двух

  m := c * m div n;//nok первых трех чисел

  nod(d, m, n);//nod - четвертого числа и nok первых трех

  nok := d * m div n;//окончательный результат

  writeln('Наименьшее общее кратное чисел:', ' ', a, ', ', b, ', ', c, ', ', d, ' = ', nok)

end.