Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
viiiiiiiiiiii
27.05.2020 13:08 •
Информатика
Даны натуральный числа x и y. получить все делители числа x, взаимно простые с y. паскаль
Показать ответ
Ответ:
Unforgettable77
03.10.2020 18:34
//Pascal ABC.NET 3.1 сборка 1219
Var
x,y,i:integer;
function nod(x,y:integer):integer;
begin
while x*y<>0 do
if x>y then x:=x mod y else y:=y mod x;
nod:=x+y;
end;
begin
readln(x,y);
for i:=1 to x div 2 do
if (x mod i=0) and (nod(i,y)=1) then writeln(i);
end.
Пример ввода:
15
27
Пример вывода:
1
5
0,0
(0 оценок)
Популярные вопросы: Информатика
liliverbovetska
24.02.2020 21:14
Нужно составить программу в pascal abc...
grabon12312
31.03.2023 17:36
Сейчас информатика - контрольная работа. вообще не понимаю....
елена1229
26.11.2022 06:07
Решить ! сейчас контрольная надо вообще не ! прямо сейчас...
mariialebedeva
03.11.2021 03:32
Петя разрезал две одинаковые конфеты на 4 примерно одинаковые половинки. как за наименьшее число взвешиваний на чашечных весах без гирь расположить эти половинки...
DAMALOVE
27.02.2022 12:15
Сравни показанные ниже датчики цвета и касания определи их сходства и различия...
Ilana27
15.09.2022 20:55
Вычислить сумму квадратов чисел, принадлежащих промежутку (a,b), стоящих на местах, кратных 4; подсчитать кол-во во всем массиве.pascal...
ZeraFh
05.04.2022 09:59
Сколько страниц текста размером 8 строк по 16 символов в каждой, записанные в кодировке cp866, помещаются на выделенную область сервера объёмом 15 кб? ...
Асемаmail
20.07.2022 19:19
Из каких источников могут быть получены растровые изображение...
ivanovartem02
03.11.2021 18:20
Сколько страниц печатаного текста уместится на носитель объёмом в 2,88 мб, если 1 страница содержит 40 строк по 50 символов?...
bisingalievaga
03.11.2021 18:20
Звук длительностью 1 минута оцифрован с частотой 22000гц. глубина кодирования 16 бит. определите размер полученного файла в мб. результат округлите до двух цифр после...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
x,y,i:integer;
function nod(x,y:integer):integer;
begin
while x*y<>0 do
if x>y then x:=x mod y else y:=y mod x;
nod:=x+y;
end;
begin
readln(x,y);
for i:=1 to x div 2 do
if (x mod i=0) and (nod(i,y)=1) then writeln(i);
end.
Пример ввода:
15
27
Пример вывода:
1
5