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

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

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


textual

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы