Регистрация
ismailismailov11
14.03.2023 07:38
Информатика
Есть ответ 👍

Составьте программу в среде КуМир для вычисления по приведённой ниже формуле

182
361
Посмотреть ответы 1

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

Alina243jhj
Alina243jhj
4,4(67 оценок)
Sub num2()       s = 0       dim a       k = cint(inputbox("k ="))       n = cint(inputbox("n ="))       redim a(n - 1)       for i = 0 to n - 1               a(i) = cint(inputbox("a(" & i & ") ="))               if a(i) mod k = 0 then s = s + a(i)       next       msgbox s end sub sub num1()       i = 0       e = cdbl(inputbox("e ="))       do while i < = e               i = i + sqr(2)       loop       msgbox "i = " & i end sub

Популярно: Информатика