Anonymous user
Sum multiples of 3 and 5: Difference between revisions
FBSL
(→{{header|МК-61/52}}: Added input and output.) |
(FBSL) |
||
Line 186:
2333333333333333333316666666666666666668</pre>
=={{header|FBSL}}==
Derived from BASIC version
<lang qbasic>#APPTYPE CONSOLE
FUNCTION sumOfThreeFiveMultiples(n AS INTEGER)
DIM sum AS INTEGER
FOR DIM i = 1 TO n - 1
IF (NOT (i MOD 3)) OR (NOT (i MOD 5)) THEN
INCR(sum, i)
END IF
NEXT
RETURN sum
END FUNCTION
PRINT sumOfThreeFiveMultiples(1000)
PAUSE
</lang>
Output
<pre>233168
Press any key to continue...
</pre>
=={{header|Haskell}}==
{{output?|Haskell}}
|