Найти В диапазоне сумму чисел, кратных некоторым числам - VB
Формулировка задачи:
В диапазоне от 1 до 100 найти сумму чисел, кратных 3 и 7
Решение задачи: «Найти В диапазоне сумму чисел, кратных некоторым числам»
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