Anonymous user
Greatest common divisor: Difference between revisions
no edit summary
No edit summary |
|||
Line 365:
gcd = gcd(a, b mod a)
end function</lang>
==={{header|IS-BASIC}}===
<lang IS-BASIC>100 DEF GCD(A,B)
110 DO WHILE B>0
120 LET T=B
130 LET B=MOD(A,B)
140 LET A=T
150 LOOP
160 LET GCD=A
170 END DEF
180 PRINT GCD(12,16)</lang>
==={{header|Sinclair ZX81 BASIC}}===
| |||