Найти произведение чисел кратных 7 от 1 до 50 - VB
Формулировка задачи:
Найти произведение чисел кратных 7 от 1 до 50
Решение задачи: «Найти произведение чисел кратных 7 от 1 до 50»
textual
Листинг программы
s=1 for i=1 to 100 if i mod 7 = 0 then s=s*i next i msgbox s