Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
kama21heas21
12.02.2021 06:00 •
Информатика
Склавиатуры вводятся числа n и k. вывести на экран // наименьший делитель введённых чисел.
Показать ответ
Ответ:
Glebbb15
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 оценок)
Популярные вопросы: Информатика
анабель125
23.02.2020 18:44
Найти произведение 5 произвольных чисел...
lgolar
21.11.2020 00:23
Возможно ли восстановить переписку в вайбере, если да то как?...
мадина488
25.12.2022 11:39
Паскаль - Создайте массив А [1..12] с генератора случайных чисел с элементами от -20 до 10 и выведете его на экран. Замените все отрицательные элементы массива числом 0....
malaya20061
08.02.2022 21:37
Как можно найти НОД двух натуральных чисел не используя алгоритм евклида? какой метод лучше? Сравните этот алгоритм с алгоритмом евклида. ...
Bibika2005
01.10.2022 20:48
1)какое количество информации несёт в себе сообщение о том, что нужная вам программа находится на одной из восьми дискет? 2)заполнить пропуски числами: а)5кбайт=__байт=__бит;...
katerinaket04
12.08.2020 09:19
Поочередно вводятся целые числа, не превышающие по значению 100. Для каждого из них нужно вывести результат от целочисленного деления на 2. Если вводится число больше 100, цикл...
Kisylyaaa
09.02.2020 04:32
Даны уравнения: 1)2х2-3х+6=0 2) 5х2-х-4=0 а) Определите , сколько корней имеет каждое уравнение б) Найдите корни, если они существуют...
arianaforever1
14.11.2021 09:41
Өлеңнен алған әсеріңізді білдіре отырып, жетім бала Ақтан жасқа хат жазыңыз...
frossbaf
14.11.2021 09:41
ребят решить задачи по физике...
5alo
14.11.2021 09:41
Для построения графика: 1. строим координатные оси;2. по вертикальной оси откладываем температуру воздуха (1 см – 2°С);3. по горизонтальной оси – названия месяцев года (1 см...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.