Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Италия13
25.10.2022 14:23 •
Информатика
Составьте программу нахождения наименьшего общего кратного (нок) двух чисел, используя формулу: а*в = нод(а*в)*нок(а, в). (по алгоритму евклида на паскале)
Показать ответ
Ответ:
ТАААААААААААПКИ
13.06.2020 13:20
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
yaannase
09.05.2020 03:40
Определите систему счисления p ,в которой число 22 в 10(система счисления) ,как 42 p ....
юля2761
28.10.2020 07:56
Скажите как сделать такую большую широкую стрелку в ворде?...
antonnetyaga
07.11.2022 07:34
Определите результат переменной b после выполнения фрагмента программы. ...
ДжонниМультяшка
16.05.2021 23:18
Напешите на языке Python...
indyk1
26.01.2023 17:53
Через какие действия формируется отчет?...
katyauauauaua
28.11.2020 05:22
Закончи алгоритм и определи какую букву надо писать. 1. слушаю есть ли звук й...
Сэээээ
28.11.2020 05:22
Вкаком предложении употреблен союз со значением условия? 1)если бы мне крылья, я облетел бы всю землю и отыскал свою маму. 2)пускай врагу наносит вред не каждый воин,...
lewaq
28.11.2020 05:22
Зякої мови запозичено слово дипломат...
danila1311
28.11.2020 05:22
1. собрались старые зайцы, сбежались маленькие зайчата, приплелись старые зайчихи- все слушают, как хвастается 2. хихикнули молодые зайчата, засмеялись добрые старушки-зайчии,...
ndknmm
28.11.2020 05:22
Поставить слова в скобках в активный или пассивный залог 1.mark speands all his free time online.don,t you think he (become) too addicted to the computer. 2.it,s not...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.