9 lines
121 B
Mathematica
9 lines
121 B
Mathematica
n=1;s=1;
|
|
while s <= 10000
|
|
n = n + 1;s = s + n;
|
|
end
|
|
if s - 10000 > abs(s - n - 10000)
|
|
[n-1 s-n]
|
|
else
|
|
[n s]
|
|
end |