ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР
a: РЯД 10 ИЗ ЦЕЛ;
сч: ЦЕЛ;
произведение: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
КОН;
произведение := 1;
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
ЕСЛИ НЕ ЧЕТ(a[сч]) ТО
произведение := произведение * a[сч]
КОН
КОН
КОН Задание.
VB.
Dim A() As Integer
Randomize()
Dim k As Integer
Dim i As Integer
i = Rnd() * 100 + 1
ReDim A(i)
For k = 0 To i
A(k) = Rnd() * -1000 + 500
Next
Dim intA, intB As Integer
intA = InputBox("Введите начало интервала")
intB = InputBox("Введите конец интервала")
Dim R, Q, S As Integer
R = 0
For i = 1 To UBound(A)
If A(i) < A(R) Then R = i
If A(i) Mod 2 <> 0 Then Q = Q + A(i)
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
If A(i) > intA And A(i) < intB Then S = S + 1
Next
<span> MsgBox("T=R/Q+1+S = " & A(R) / Q + 1 + S)</span>
1) Высчитаем количество пикселей в изображении.
128 * 128 = 16384 пикселя.
2) Узнаем информационный вес каждого пикселя.
Формула нахождения информации N = 2i (где N - количество цветов в палитре, i - количество информации в битах, которое несет каждый пиксель).
256 = 28
Один пиксель несет 8 бит информации.
3) Найдем информационный вес изображения.
16384 * 8 = 131072 бита
4) Переведем биты в байты. 1 Байт = 8 битам.
131072 : 8 = 16384 байта.
5) Переведем байты в Кбайты. 1 Кбайт = 1024 байт.
16384 : 1024 = 16 Кбайт.
Ответ: объем памяти нужен минимум 16 Кбайт.
Если Python, то вот:
import random
a = random.randrange(1,11)
b = random.randrange(1,11)
c = random.randrange(1,11)
d = a * b * c
print("Ответ = " +str(d))
<span>наука об общих закономерностях процессов у</span>правления<span> и передачи и</span>нформации<span> в различных с</span>истемах
