Greatest common divisor: Difference between revisions
Content added Content deleted
| Line 690: | Line 690: | ||
PRINT(CHR$(12);"Input two numbers : ";) !CHR$(147) in C-64 version |
PRINT(CHR$(12);"Input two numbers : ";) !CHR$(147) in C-64 version |
||
INPUT(J%,K%) |
INPUT(J%,K%) |
||
A%=J% |
A%=J% B%=K% |
||
WHILE A%<>B% DO |
WHILE A%<>B% DO |
||
IF A%>B% |
IF A%>B% |
||