A)<span> МАГЖВБЕДЗИКЛ</span>
s:=0; //М
for i := 1 to N do //АГЖ
begin //В
read(x); //Б
if x > 0 then //ЕДЗ
s := s + x; //И
end; //К
write(s); //Л
7. 2 цвета кодируются глубиной цвета в 1 бит, т.к. 2 = 2^1. Значит рисунуко 184*2048 займет 184*2048*1 = 376832 бит = 47104 байт = 46 кбайт (8 бит = 1 байт, 1 кбайт = 1024 байт)
8. В рисунке 256*208 всего 256*208 = 53248 пикселей.
13 кбайт = 13312 байт = 106496 бит
Получаем глубину цвета, поделив информационный объем на количество пикселей: 106496/53248 = 2 бита на цвет.
С помощью 2-х бит можно закодировать 2^2 = 4 цвета.
Ответ:
Dim Massiv(9) as Integer ' Объявляем массив из 9 элементов
Dim Composition as Integer ' Результат произведения нечетных элементов массива
Dim index as Integer ' Индекс для доступа к элементам массива
' Заполняем массив случайными числами
For index = 0 to 9
Massiv(index) = Rnd() * 5
print Massiv(index) ' Вывод массива
Next
' Инициализируем переменную Composition
Composition = 1
For index = 0 to 9
If Massiv(index) Mod 2 <> 0 Then ' Если элемент не четный то выполнить произведение
Composition = Composition * Massiv(index)
End if
Next
print Composition ' Результат произведения