Сначала считаем количество пикселей 1024*768=786432
затем по формуле N=2^i находим количество бит на 1 пиксель
8=2^i ⇒ i=3, количество пикселей умножаем на глубину цвета (i)
786432*3=2359296 бит / 8 = 294912 байт / 1024 = 288 кбайт
Ответ: 288 КБайт
Всего цветов N=2. По формуле N=2^i узнаём, что вес одного символа, в данном случае значение цвета для одного пикселя равно 1. Количество пикселей обозначается буквой K и равно 52*14. По формуле I=K*i узнаём
I=52*14*1=728 бит
Жил был Билл Гейтс, и основал он компанию Microsoft, в которой родилась первая операционная графическая система MS-DOS, жалкие людишки наконец смогли по нормальному пользоваться ПК, операционная система стала сама помогать людям, спрашивать их о том, какие действия нужно совершить. После вышел Windows 95, NT, 2000, XP,7,8. И людям больше нечего было делать, только в игрушки играть, но вы! Да, да вы! Моя учительница информатики не даете мне насладиться этим чудом в полной мере. Будьте вы прокляты со своим тупым заданием. Сочинить сказку про WordPad, это просто идиотизм.
Начнем. Создали в Microsoft текстовый редактор WordPad, и людишки смогли писать на экранчиках мониторчиков. И все счастливы. Конец.
Заполни ячейки A2, B2, C2
Sub Calculate() 'Начало процедуры
Dim deposit As Integer 'величина вклада
Dim period As Integer 'срок вклада
Dim percent As Integer 'годовая процентная ставка
Dim day_percent As Double 'ежедневная процентная ставка
Dim profit As Double 'доход
Dim result As Double 'итог
deposit = Cells(2, 1).Value 'присваиваем величине вклада значение ячейки А2
period = Cells(2, 2).Value 'присваиваем сроку вклада значение ячейки B2
percent = Cells(2, 3).Value 'присваиваем годовой процентной ставке значение ячейки C2
day_percent = period * percent / 365 'ежедневная процентная ставка = срок вклада (умножаем) на годовую процентную ставку и (делим) на 365 дней
profit = deposit * day_percent / 100 'доход = величина вклада (умножаем) на ежедневную процентную ставку и (делим) на 100%
result = deposit + profit 'Итог = величина начального вклада (плюс) доход
Cells(6, 3).Value = profit 'заносим доход в ячейку C6
Cells(7, 3).Value = result 'заносим итог в ячейку C7
End Sub 'Конец процедуры
1) 12.5 байт
2)
3)
4) 1,6 бит
Сейчас в комментариях попробую решить
