RosettaCodeData/Task/Modular-inverse/XPL0/modular-inverse.xpl0

8 lines
152 B
Plaintext

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");
]