Anonymous user
Sum multiples of 3 and 5: Difference between revisions
Added S-BASIC example
(Joy version) |
imported>KayproKid (Added S-BASIC example) |
||
Line 4,247:
</pre>
=={{header|S-BASIC}}==
<syntaxhighlight lang="basic">
rem - return n mod m
function mod(n, m = integer) = integer
end = n - m * (n / m)
var i, limit = integer
var sum = real
limit = 1000
sum = 0
for i = 1 to limit-1
if (mod(i,3) = 0) or (mod(i, 5) = 0) then
sum = sum + i
next i
print using "Sum = #######"; sum
end
</syntaxhighlight>
{{out}}
<pre>
Sum = 233168
</pre>
=={{header|Scala}}==
| |||