Sum multiples of 3 and 5: Difference between revisions
Content added Content deleted
(Created page with "{{draft task}}The objective is to find the sum of multiplies of 3 or 5 below ''n'' within a function. Test it with n = 1000. == {{header|BASIC}} == {{works with|FreeBASIC}} ...") |
|||
Line 18: | Line 18: | ||
End |
End |
||
</lang> |
</lang> |
||
=== Output === |
|||
234168 |
Revision as of 14:37, 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 += i End if Next i Return s
End Function Print mulsum35(1000) Sleep End </lang>
Output
234168