программа на паскале. Напишите пожалуйста алгоритм нахождения наименьшего общего кратного для двух чисел спасибо заранее

Question

программа на паскале. Напишите пожалуйста алгоритм нахождения наименьшего общего кратного для двух чисел спасибо заранее

АНАТОЛИЙ СТЕПАНОВ Ученик (125), закрыт 9 лет назад

Answer 1

Определись, тебе программа нужна или алгоритм?
Если алгоритм, то циклом от большего числа вверх идешь и проверяешь если при делении этого числа на числа, данные нам, остатки равны нулю, то вот оно и есть!
А если программа, то ты даже не удосужился язык программирования указать.

Answer 2

1. Находишь НОД (гугли "алгоритм Эвклида паскаль")
2. Считаешь a*b/НОД (a,b)
3. ..
4. PROFIT!

Answer 3

var a,b,r,c,d:longint;
begin
readln(a,b); c:=a; d:=b;
repeat r:=a mod b; a:=b; b:=r until b=0;
writeln(c div a*d); readln
end.

Answer 4

1. Проверим не равно ли одно из чисел нулю. Если равно, то решения нет.
2. Примем произведение чисел за наименьшее общее кратное.
3. В цикле от произведения чисел до 1 проверяем равенство остатка от деления ключа цикла на первое число и на второе. Если остатки равны нулю – принимаем данный ключ цикла за наименьшее кратное и продолжаем цикл.