Предмет: Информатика,
автор: ThePaper
Напишите программу для нахождения НОК для n чисел (Pascal)
Ответы
Автор ответа:
0
// Программа и скриншот результата ее работы - в приложениях
var m,n:integer;
// Наибольший общий делитель
function GCD(a,b:integer):integer;
var x,y:integer;
begin
x:=a;
y:=b;
while x<>y do
if x>y
then x:=x-y
else y:=y-x;
GCD:=x;
end;
// Наименьшее общее кратное
function SCM(a,b:integer):integer;
begin
SCM := a*b div GCD(a,b);
end;
begin
writeln('Введите два целых числа m, n: ');
readln(m, n);
writeln('Наименьшее общее кратное ',
m,' и ', n, ' = ', SCM(m,n) );
end.
var m,n:integer;
// Наибольший общий делитель
function GCD(a,b:integer):integer;
var x,y:integer;
begin
x:=a;
y:=b;
while x<>y do
if x>y
then x:=x-y
else y:=y-x;
GCD:=x;
end;
// Наименьшее общее кратное
function SCM(a,b:integer):integer;
begin
SCM := a*b div GCD(a,b);
end;
begin
writeln('Введите два целых числа m, n: ');
readln(m, n);
writeln('Наименьшее общее кратное ',
m,' и ', n, ' = ', SCM(m,n) );
end.
Приложения:

Похожие вопросы
Предмет: Геометрия,
автор: zaac18496
Предмет: Математика,
автор: vikasamara22
Предмет: Английский язык,
автор: elikakoppel14
Предмет: Химия,
автор: еленамалых11062002
Предмет: Геометрия,
автор: rooob