Anonymous user
Permuted multiples: Difference between revisions
m
→{{header|REXX}}: changed some comments.
m (→{{header|REXX}}: simplified some code.) |
m (→{{header|REXX}}: changed some comments.) |
||
Line 443:
b= 2*n /*calculate the product of: 2*n */
t= 3*n /* " " " " 3*n */
if verify(t, b)>0 then iterate /*
q= 4*n /*calculate the product of: 4*n */
if verify(q, b)>0 then iterate /*
if verify(q, t)>0 then iterate /*
v= 5*n /*calculate the product of: 5*n */
if verify(v, b)<0 then iterate /*
if verify(v, t)>0 then iterate /*
if verify(v, q)>0 then iterate /*
s= 6*n /*calculate the product of: 6*n */
if verify(s, b)>0 then iterate /*
if verify(s, t)>0 then iterate /*
if verify(s, q)>0 then iterate /*
if verify(s, v)>0 then iterate /*
say ' n =' commas(n) /*display the value of: n */
say ' 2*n =' commas(b) /* " " " " 2*n */
| |||