Pascal. Вводится 2 естественных числа. Вывести их НОК.Помогите пожалуйста!
Pascal. Вводится 2 естественных числа. Вывести их НОК.
Помогите пожалуйста!
2 ответа
Егор Девадзе
//алгоритм Евклида
var
a, b: integer;
function NOD (p1, p2: integer):integer;
begin
while p1lt;gt;p2 do
if p1gt;p2 then p1:=p1-p2 else p2:=p2-p1;NOD:=p1;
end;
function NOK (p1, p2: integer):integer;
begin
NOK:=(p1*p2) div NOD(p1, p2);
end;
begin
readln (a, b);
writeln ('НОК a, b = ', NOK(a, b));
end.
var
a, b: integer;
function NOD (p1, p2: integer):integer;
begin
while p1lt;gt;p2 do
if p1gt;p2 then p1:=p1-p2 else p2:=p2-p1;NOD:=p1;
end;
function NOK (p1, p2: integer):integer;
begin
NOK:=(p1*p2) div NOD(p1, p2);
end;
begin
readln (a, b);
writeln ('НОК a, b = ', NOK(a, b));
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Облако тегов