Паскаль!!!!даны естественные числа n и р . найти такое mamp;lt;p ,

Паскаль!!!!
даны натуральные числа n и р . отыскать такое mlt;p , m*n при разделенье на р даёт остаток 1

Задать свой вопрос
1 ответ
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.
Игорек Стрекаловский
ты точно правильно написал ?
Нелли Хренева
просто вывод как то не верно дает
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт