Sum multiples of 3 and 5: Difference between revisions
Sum multiples of 3 and 5 in various BASIC dialents
(Sum multiples of 3 and 5 en Verilog) |
(Sum multiples of 3 and 5 in various BASIC dialents) |
||
Line 438:
{{out}}
<pre>233168</pre>
==={{header|BASIC256}}===
<lang BASIC256>function multSum35(n)
if n = 0 then return 0
suma = 0
for i = 1 to n
if (i mod 3 = 0) or (i mod 5 = 0) then suma += i
next i
return suma
end function
print multSum35(999)
end</lang>
==={{header|QBasic}}===
<lang QBasic>FUNCTION multSum35 (n)
IF n = 0 THEN multSum35 = 0
suma = 0
FOR i = 1 TO n
IF (i MOD 3 = 0) OR (i MOD 5 = 0) THEN suma = suma + i
NEXT i
multSum35 = suma
END FUNCTION
PRINT multSum35(999)</lang>
==={{header|True BASIC}}===
<lang qbasic>FUNCTION multSum35(n)
IF n = 0 THEN LET multSum35 = 0
LET suma = 0
FOR i = 1 TO n
IF MOD(i, 3) = 0 OR MOD(i, 5) = 0 THEN LET suma = suma + i
NEXT i
LET multSum35 = suma
END FUNCTION
PRINT multSum35(999)
END</lang>
==={{header|Yabasic}}===
<lang yabasic>sub multSum35(n)
if n = 0 then return 0 : fi
suma = 0
for i = 1 to n
if mod(i, 3) = 0 or mod(i, 5) = 0 then suma = suma + i : fi
next i
return suma
end sub
print multSum35(999)
end</lang>
==={{header|IS-BASIC}}===
| |||