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

126

251

Посмотреть ответы 2

Ответы на вопрос:

tamilyamehtiev

Информатика

4,5(49 оценок)

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