Войти Регистрация Спроси ai-bota

Даны натуральные числа n и р . найти такое m

Ответ:

velievamet

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 оценок)

Популярные вопросы: Информатика

vadimgofman

31.10.2022 16:36

1. какой минимальный объём памяти (в кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 256 на 256 пикселов при условии, что в изображении...

Пени67

22.12.2021 03:50

Примеры информации доступной и недоступной для усвоения...

Крад

22.12.2021 03:50

Решить на pascak вот даны числа a, b, c. проверьте, выполняется ли условие, что все три числа двузначные. вводные даные 35 35 35 выводные true водные 35 3 5 выводные false надо...

Манюня589

13.07.2021 12:05

5)Разделить IP-сеть на подсети. Указать широковещательный адрес. 207.15.0.0/24 4 подсети с 28, 80, 10 и 40 узлами....

koki1501

22.01.2021 08:05

Кто хорошо знает ИКТ? НЕ Я)сор жду какой либо ...

moderator14

16.11.2021 18:47

Задача 1. Складіть програму, у якій: а) створюються списки: а з 5 випадкових цілих чисел від 1 до 20; b з 5 випадкових цілих чисел від -10 до 10; с – об’єднання списку а і подвоєного...

ZnayNeZnay

21.10.2020 17:06

сделать в excel. Даны действительные числа a, b, c. Удвоить эти числа, если a =b =c, и уменьшить в два раза, если это не так....

Wikpiklear

13.01.2021 15:21

1символ текста = 1 байт дано 800 станиц на каждой странице 2 колоны из 80 строк в каждой строке 60 символов включая пробелы определите в байтах и килобйтах...

SoniaGradient

13.01.2021 15:21

Дано: к1=к2 i1=1.5i2 найти: n1,n2...

Айрона

13.01.2021 15:21

Запишите на языке pascal. x 0, y≤5. величина x - четная. величина x - нечётная. x кратно 3. x делится без остатка на 2 и на 3. x не делится на 5...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку