RosettaCodeData/Task/Modular-inverse/XPL0/modular-inverse.xpl0
2023-07-01 13:44:08 -04:00

7 lines
152 B
Text

code IntOut=11, Text=12;
int X;
def A=42, M=2017;
[for X:= 2 to M-1 do
if rem(A*X/M) = 1 then [IntOut(0, X); exit];
Text(0, "Does not exist");
]