Номер 5, страница 29 - гдз по информатике 9 класс учебник Босова, Босова

Параграф 1.2. Запись вспомогательных алгоритмов на языке Паскаль. Глава 1. Алгоритмы и программирование - номер 5, страница 29.

Условие.

5. Как известно, наименьшее общее кратное (НОК) и наибольший общий делитель двух чисел связаны соотношением: НОК(а, b) = (а • b) / НОД(а, b).

Напишите программу вычисления НОК следующих четырёх чисел: 36, 54, 18 и 15. Используйте процедуру вычисления НОД двух чисел.

Решение.

Процедура вычисления НОД:
procedure nod(x,y: integer; var n: integer);
begin
repeat
if x>y then x:=x mod y
else y:=y mod x;
until (x=0)or(y=0);
n:=x+y;
end;

Программа вычисления НОК, используя процедуру НОД:
var a,b,c,d,e,n: integer;
procedure nod(x,y: integer; var n: integer);
begin
repeat
if x>y then x:=x mod y
else y:=y mod x;
until (x=0)or(y=0);
n:=x+y;
end;
begin
writeln ('Введите 4 числа: ');
readln(a,b,c,d);
nod(a,b,n);
e:=a*b div n;
nod(c,e,n);
e:=c*e div n;
nod(d,e,n);
writeln('Наименьшее общее кратное чисел', a, ', ', b, ', ', c, ' и ', d, ' составляет: ',d*e div n);
end.