Primality by trial division: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 385: | Line 385: | ||
INTEGER P, Q; |
INTEGER P, Q; |
||
BEGIN |
BEGIN |
||
MOD := P - Q * (P /Q); |
MOD := P - Q * (P / Q); |
||
END; |
END; |
||