Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
sergey19751975
12.07.2022 23:46 •
Информатика
Даны натуральные числа n и р . найти такое m
Ответ:
ура6
05.10.2020 16:26
Var n,p,m:integer;
Begin
Write('n = ');ReadLn(n);
Write('p = ');ReadLn(p);
For m:= 1 to p-1 do
if (m*n) mod p = 1 then WriteLn(m)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
KKnoneTT
06.11.2021 02:15
Объект-оригинал модель объекта ребёнок кукла местность здание событие явление природы процесс создания объекта...
Alesha55551
14.02.2021 07:50
Было проведено 9 запусков программы, при которых в качестве значений переменных x и y вводились следующие пары чисел:(12; 3), (1; 5), (-1; 3), (5; 3), (14; 3), (12;...
897masterlomasotdp3h
02.04.2021 07:29
Устройство для вывода на информации на бумагу а)манитор б)притер в)процессор...
АняГ11
18.06.2021 17:42
Объявлен одномерный массив arr. определите, чему равны элементы arr 2 и arr 7...
SANastea
23.11.2020 12:17
В последовательности натуральных чисел найти и вывести минимальное нечетное число....
olga837
27.05.2022 17:52
Частота FSB равна 100 МГЦ коэффициент умножения частоты 16. Чему равна частота процессора?...
pishinaangelina
03.07.2021 15:02
Си.Ввести с клавиатуры символьную строку и определить, сколько в ней слов. Словом считается последовательности непробельных символов, отделенная с двух сторон пробелами...
Ananim001
09.10.2022 11:54
Зрение обояние слух вкус , осязание всё вмести это...
Загадака
09.10.2022 11:54
Сообщение занимает 4 страницы по 50 строк. в каждой строке записано по 38 символов. сколько символов в алфавите, если все сообщение содержит 5700 байт....
Zelais
09.10.2022 11:54
Какие ещё сервиса предоставляются пользователям компьютерных сетей?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Begin
Write('n = ');ReadLn(n);
Write('p = ');ReadLn(p);
For m:= 1 to p-1 do
if (m*n) mod p = 1 then WriteLn(m)
End.