29 lines
975 B
Plaintext
29 lines
975 B
Plaintext
#include <jambo.h>
|
|
|
|
Main
|
|
prod=1, sum=0, x=5, y=-5,z=-2,one=1, three=3, seven=7, j=0
|
|
Set decimal '0'
|
|
|
|
Let ' j := Neg(three) '
|
|
Iterator( j+=three, Less equal( j, Pow(3,3) ), Set 'j'; Gosub(Body) )
|
|
Let ' j := Neg(seven) '
|
|
Iterator( j+=x, Less equal( j, seven ), Set 'j'; Gosub(Body) )
|
|
j=555, Iterator( ++j, Less equal( j, Add(550,y) ), Set 'j'; Gosub(Body) )
|
|
j=22, Iterator( j-=three, Greater equal( j, -28 ), Set 'j'; Gosub(Body) )
|
|
j=x, Iterator( j+=z, Greater equal( j, y ), Set 'j'; Gosub(Body) )
|
|
j=1927, Iterator( ++j, Less equal( j, 1939 ), Set 'j'; Gosub(Body) )
|
|
Let ' j := Pow(11,x)'
|
|
Iterator( ++j, Less equal( j, Add( Pow(11,x),one) ), Set 'j'; Gosub(Body) )
|
|
|
|
Printnl ( "SUM = ", sum, "\nPROD = ",prod )
|
|
End
|
|
|
|
Subrutines
|
|
|
|
Define ' Body, j '
|
|
Let( sum := Add(sum, Abs(j) ) )
|
|
When ( Less ( Abs(prod), Pow(2,27) ) And (Not zero(j)) ) {
|
|
Let( prod := Mul(prod, j) )
|
|
}
|
|
Return
|