Составить программу в вижуал бэйсик: 1) среди всех трехзначных положительных чисел выбрать и вывести на экран только кратные трем и подсчитать их количество. 2)найти произведение к членов последовательности: -1,3,

1. строка получается слишком длиной, поэтому разбиваем ее на две части sub z1() dim n as integer dim i as integer dim s1 as string dim s2 as string for i = 100 to 999   if i mod 3 = 0 then     n = n + 1     if len(s1) < 1024 then         s1 = s1 & i & " "         else             s2 = s2 & i & " "         end if     end if next i msgbox (s1) if len(s2) > 0 then msgbox ("продолжение: " & s2) msgbox ("их количетво: " & n) end sub1. вариант дла excel. срабатывает на двойном клике мышки. можешь приписать любому другому событиюprivate sub worksheet_beforedoubleclick(byval target as range, cancel as boolean)dim n as integerdim i as integerfor i = 100 to 999  if i mod 3 = 0 then    n = n + 1    cells(n, 1) = i    end ifnext imsgbox ("их количество: " & n)end sub2.sub z2()dim k as integerdim p as doublek = inputbox("введите  k: ")p = 1 for i = 1 to k     p = p * (-1 + 4 * (i - 1)) next i msgbox ("произведение: " & p) end sub

1x 2b-3=1×x×2b-3 и наверное всё