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

Выбрать другой вопрос

Смотреть ответ

Перейти к выбору ответа

Информатика

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.