Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
bakinec001p08ngx
07.12.2021 04:32 •
Информатика
Составьте программу нахождения наименьшего общего кратного (нок) двух чисел, используя формулу: а*в = нод(а*в)*нок(а, в). (по алгоритму евклида на паскале)
Показать ответ
Ответ:
Фокс890
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 оценок)
Популярные вопросы: Информатика
egn96637
13.07.2021 00:31
Покупатель в каждом из магазинов a, b, c и d сделал по одной покупке и приобрел джойстик, дискеты, бумагу и картридж. известно, что в d не было ни дискет, ни джойстика; в c покупатель...
dima0354888
13.07.2021 00:31
Решить по ивт! надо! в видеоигре игрок выигрывает 50 очков, если сбивает самолёт,100 очков, если сбивает ракету,200 очков, если сбивает спутник.составьте схему подсчёта общего...
gejdanp0dmbe
13.07.2021 00:31
Дистанция, заданная в аршинах (1 аршин =71,12 см), переводится в морские меры длины и печатается в формате: морские мили, кабельтовы, морские сажени.например 1000000 аршин печатается...
NekitGame225
13.07.2021 00:31
Зеркальные поля применяют если необходимо...
KIRILLGAMER332
12.09.2022 07:09
Разрешение экрана монитора 352×288 означает, что изображение на его экране будет состоять из точек в каждой строке....
alekcandrina200
10.07.2021 13:23
Найдите информационный объем всего текста, если известно, что мощность алфавита равна 256 символов, а количество символов в тексте 60...
zhannayachmenev
10.07.2021 13:23
Дали , чтоб нашла я ссылку с временем, не датой , а временем рождения сталина...
Valya039782
10.07.2021 13:23
Мощность некоторого алфавита равна 256 символам. каким будет объем информации в тексте, состоящем из 100 символов? ответ записать в байтах...
вероника20048
10.07.2021 13:23
Напишите программу, которая вводит два вещественных числа, a и b ( a b ), и выводит через пробел 5 случайных вещественных чисел в полуинтервале [ a , b ) . входные данные входная...
Дурачок225
26.03.2021 14:27
Редактирование абзацев текста 1) хранение 2) передача 3) получение 4) обработка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.