найти В диапазоне сумму чисел, кратных некоторым числам - VB

Формулировка задачи:

В диапазоне от 1 до 100 найти сумму чисел, кратных 3 и 7

Код к задаче: «найти В диапазоне сумму чисел, кратных некоторым числам - VB»

textual
s=0
for i=1 to 100
if i mod 3 = 0 or i mod 7 = 0 then s=s+i
next i
msgbox s

6   голосов, оценка 3.500 из 5


СОХРАНИТЬ ССЫЛКУ