begin
//1 вариант
Range(-3, 11).Sum.Println;
//2 вариант
Range(-3, 11).Aggregate(0, (Sum, x)-> Sum + x).Println;
//3 вариант
var Sum := 0;
foreach var x in Range(-3, 11) do
Sum += x;
Sum.Println;
//4 вариант
Sum := 0;
for var i := -3 to 11 do
Sum += i;
Sum.Println;
//5 вариант
Sum := 0;
var j := -3;
while j <= 11 do
begin
Sum += j;
j += 1
end;
Sum.Println;
//6 вариант
Sum := 0;
j := -3;
repeat
Sum += j;
j += 1;
until j > 11;
Sum.Println;
end.
1) Всего точек 512*720 = 368640;
2) объем изображения = 90*1024*8 = 737280 бит;
3) на каждый пиксель (точку) отводится 737280/368640 = 2 бита;
4) макс. число цветов = 2^2 = 4;
ответ: 4.