27 lines
355 B
Plaintext
27 lines
355 B
Plaintext
prod = 1;
|
|
sum = 0;
|
|
x = 5;
|
|
y = -5;
|
|
z = -2;
|
|
one = 1;
|
|
three = 3;
|
|
seven = 7;
|
|
Do[
|
|
sum += Abs[j];
|
|
If[Abs[prod] < 2^27 \[And] j != 0, prod *= j];
|
|
,
|
|
{j,
|
|
Join[
|
|
Range[-three, 3^3, three],
|
|
Range[-seven, seven, x],
|
|
Range[555, 550 - y],
|
|
Range[22, -28, -three],
|
|
Range[1927, 1939],
|
|
Range[x, y, z],
|
|
Range[11^x, 11^x + one]
|
|
]
|
|
}
|
|
]
|
|
sum
|
|
prod
|