Sum multiples of 3 and 5: Difference between revisions

==={{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>