Найти В диапазоне сумму чисел, кратных некоторым числам - 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

Оцени полезность:

6   голосов , оценка 3.5 из 5
Похожие ответы