Sum multiples of 3 and 5: Difference between revisions
Content added Content deleted
(→{{header|BASIC}}: incorrect) |
|||
Line 3: | Line 3: | ||
== {{header|BASIC}} == |
== {{header|BASIC}} == |
||
{{works with|FreeBASIC}} |
{{works with|FreeBASIC}} |
||
{{incorrect||(Or if the function is right, the output is wrong.)}} |
|||
<lang basic> |
|||
Declare function mulsum35(n as integer) as integer |
<lang basic>Declare function mulsum35(n as integer) as integer |
||
Function mulsum35(n as integer) as integer |
Function mulsum35(n as integer) as integer |
||
Dim s as integer |
Dim s as integer |
||
Line 16: | Line 16: | ||
Print mulsum35(1000) |
Print mulsum35(1000) |
||
Sleep |
Sleep |
||
End |
End</lang> |
||
{{out}} |
|||
</lang> |
|||
=== Output === |
|||
467 |
467 |
||
=={{header|Perl 6}}== |