Предмет: Информатика, автор: Philka

Составьте программу нахождения наименьшего общего кратного (НОК) двух чисел, используя формулу: А*В = НОД(А*В)*НОК(А, В). (по алгоритму Евклида на Паскале)

Ответы

Автор ответа: Aillianna
30
var
    x, y, p: Integer;

begin
    Writeln('Введите два числа');
    Readln(x, y); {вводим два целых числа}
    p := x * y;
    
    repeat
        if x > y Then x := x Mod y
        Else y := y Mod x
    until (x = 0) Or (y = 0);
    {до тех пор, пока одно из чисел не станет равно нулю}
    
    Writeln('НОK=', p / (x + y)); {вывод НОД - без условного оператора, так как одно из чисел обязательно равно нулю}
end.
Похожие вопросы
Предмет: Английский язык, автор: краби1