Primality by trial division: Difference between revisions
m
→{{header|ALGOL-M}}
No edit summary |
|||
Line 385:
INTEGER P, Q;
BEGIN
MOD := P - Q * (P / Q);
END;
|