Надо просто перемножить.
240 * 360 * 4 = 345600 байт
345600 / 1024 = 43200 кб
на 32 оттенка надо 5 бит, 2^5 = 32
1024*768 * 5 бит = 3932160 байт
3932160 /1024 = 3840 кб
Что там делать со степенями N I K V я не понимаю
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var x:=-3.14;
while x<=3.14 do begin
Writeln(x:5:2,' ',sqr(sin(x))+sqr(cos(x)));
x:=x+0.2
end
end.
Результат
-3.14 1
-2.94 1
-2.74 1
-2.54 1
-2.34 1
-2.14 1
-1.94 1
-1.74 1
-1.54 1
-1.34 1
-1.14 1
-0.94 1
-0.74 1
-0.54 1
-0.34 1
-0.14 1
0.06 1
0.26 1
0.46 1
0.66 1
0.86 1
1.06 1
1.26 1
1.46 1
1.66 1
1.86 1
2.06 1
2.26 1
2.46 1
2.66 1
2.86 1
3.06 1
Графический редактор Paint (paint — краска), входящий в набор стандартных инструментальных средств операционной системы Windows, предназначен для создания и редактирования черно-белых и цветных рисунков и чертежей. Рисунки, подготовленные в редакторе Paint, относятся к так называемой растровой<span> графике (см. главу 4), когда изображение на экране дисплея рассматривается как совокупность, состоящая из некоторого количества строк, а каждая строка состоит из некоторого количества точек, которые принято называть пикселами, то есть элементарными единицами изображения. Цвет </span><em>каждого </em><span>пиксела задается независимым от остальных образом. Весь набор пикселов, из которых состоит рисунок, образует двухмерный массив </span>— растр<span> или</span>битовую карту<span> изображения. Основным достоинством этого способа формирования изображения является его простота. Вместе с тем рисунки, построенные таким образом, плохо масштабируются, то есть увеличиваются или уменьшаются в размерах, так как при этом возникают существенные искажения изображения. Подготовленные в редакторе рисунки могут быть напечатаны на принтере, перенесены в документ, созданный в текстовом редакторе, или записаны в файл на дисковое устройство. Файлы, создаваемые редактором Paint, по умолчанию получают стандартное расширение .bmp (от bit map — битовая карта).</span>
Решение - в прилагаемом файле.
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('Сумма равна ',Range(1,223,2).Println.Sum)
end.
<u>Результат</u>
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127 129 131 133 135 137 139 141 143 145 147 149 151 153 155 157 159 161 163 165 167 169 171 173 175 177 179 181 183 185 187 189 191 193 195 197 199 201 203 205 207 209 211 213 215 217 219 221 223
Сумма равна 12544