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