Найти В диапазоне сумму чисел, кратных некоторым числам - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д