18 lines
471 B
Rexx
18 lines
471 B
Rexx
sum=0
|
|
do j=1 to 1000
|
|
if j//3==0 | j//7==0 then iterate
|
|
sum=sum+j
|
|
end /*j*/
|
|
|
|
/*shows sum of 1k numbers except those divisible by 3 or 7.*/
|
|
say 'sum='sum
|
|
...
|
|
numeric digits 5000
|
|
prod=0
|
|
do k=1 to 2000
|
|
do m=1 to k
|
|
if m>99 then iterate k
|
|
prod=prod*m
|
|
end /*m*/
|
|
end /*k*/
|
|
say 'prod=' prod
|