Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
jessyss
10.11.2020 04:58 •
Информатика
Склавиатуры вводятся числа n и k. вывести на экран // наименьший делитель введённых чисел.
Показать ответ
Ответ:
yan0125
08.10.2020 19:59
Pascal
Program del;
Var n, k, I, a, b, m : integer;
Begin
Readln(n, k);
M = -1;
For i:=2 to n do
Begin
a:=n mod i;
b:=k mod I;
If (a=0) and (b=0) and (m = -1) then
M = I;
end;
If m = -1 then
Writeln (“NO”)
Else writeln(m);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
nshambulina
27.10.2021 01:43
Проблема с паскалем. мне надо посчитать среднее арифметическое всех отрицательных чисел в массиве из десяти элементов. я понимаю, как сначала надо распредилить, какие числа...
Mama228zx
15.07.2022 09:03
проблемные вопросы к пёрышко финиста ясна сокола...
0005zet
19.09.2021 11:13
1. Экономика как наука Используя обществоведческие знания, 1) раскройте смысл понятия «экономика как наука»? 2) составьте два предложения: - одно предложение, содержащее...
креореглеонл
14.05.2021 19:03
Казак тылы 7 сынып кестеде келтырылген сойлемдерге мысалдар жазндар...
lizakirianova03
24.05.2023 13:32
2. Постройте, сыграйте и запишите в тетради большие септимы (б. 7) на I, IV ступенях в мажоре и на I, II и VІ в гармоническом миноре в тональнастях до,ре,соль,ля пример...
maryamra2210
16.04.2022 16:31
В магазин раз в два дня привозят хлебобулочные изделия раз в три дня кисломолочную продукцию и каждые десять дней Кондитерские изделя. Первого декабря в магазин привезли...
ritatymchak
12.12.2022 23:46
Установіть відповідність між назвами дисперсних систем та прикладами сумішей, що до них належать A) суспензіїБ) емульсіїВ) піни (тверді); г) аерозолi.1) активоване вугілли:2)...
24211626l
03.05.2020 01:32
Миша и Вася устроили гонки улиток. В точке А был старт, а через 36 см в точке B - финиш. Улитка Шустрик движется со скоростью 7, 2 см за 1 минуту, а скорость улитки Ракеты...
SchoolPro1453
24.06.2021 08:56
На поле посеяли 60 кг пшеницы, риса в 3 раза меньше, чем пшеницы, а кукурузы в 2 раза больше, чем пшеницы и риса вместе. Сколько кукурузы посеяли? (сделайте с условием )...
Arai54
19.05.2022 17:34
Відомо що функція y=f(x) парна і f(-2) =-3.знайти f(2)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Program del;
Var n, k, I, a, b, m : integer;
Begin
Readln(n, k);
M = -1;
For i:=2 to n do
Begin
a:=n mod i;
b:=k mod I;
If (a=0) and (b=0) and (m = -1) then
M = I;
end;
If m = -1 then
Writeln (“NO”)
Else writeln(m);
End.