Sum multiples of 3 and 5: Difference between revisions
Content added Content deleted
(Joy version) |
imported>KayproKid (Added S-BASIC example) |
||
Line 4,247: | Line 4,247: | ||
</pre> |
</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}}== |
=={{header|Scala}}== |