Найти произведение чисел кратных 7 от 1 до 50 - VB

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

Найти произведение чисел кратных 7 от 1 до 50

Код к задаче: «Найти произведение чисел кратных 7 от 1 до 50 - VB»

textual
s=1
for i=1 to 100
if i mod 7 = 0 then s=s*i
next i
msgbox s

13   голосов, оценка 3.692 из 5


СОХРАНИТЬ ССЫЛКУ