Sum multiples of 3 and 5: Difference between revisions
Content added Content deleted
| Line 9: | Line 9: | ||
For i as integer = 1 to n |
For i as integer = 1 to n |
||
If (i mod 3 = 0) or (i mod 5 = 0) then |
If (i mod 3 = 0) or (i mod 5 = 0) then |
||
s += |
s += 1 |
||
End if |
End if |
||
Next i |
Next i |
||
| Line 19: | Line 19: | ||
</lang> |
</lang> |
||
=== Output === |
=== Output === |
||
467 |
|||
Revision as of 14:39, 14 May 2013
Sum multiples of 3 and 5 is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.
The objective is to find the sum of multiplies of 3 or 5 below n within a function. Test it with n = 1000.
BASIC
<lang basic> Declare function mulsum35(n as integer) as integer Function mulsum35(n as integer) as integer
Dim s as integer
For i as integer = 1 to n
If (i mod 3 = 0) or (i mod 5 = 0) then
s += 1
End if
Next i
Return s
End Function Print mulsum35(1000) Sleep End </lang>
Output
467