Аквариум имеет форму прямоугольного параллелепипеда с размерами А,В,С (измерения даны в сантиметрах). Поместиться ли в него вода объемом V литров? (1 литр = 1 куб. дм =1000 куб.см). Нужно сделать эту задачу,записав программу в Паскале очень надо

Px - обозначение пикселя

количество пикселей в изображении = ширина * высота

количество цветов = 2ⁱ^1 - глубина (битность) цвета,
т. е. количество бит на 1 px

2⁴ = 16 цветов
2⁸ = 256 цветов

8 бит = 1 байт

1.количество px в изображении = 200 * 100 = 20 000 px
битность => 16 цветов = 4 бит

20 000 * 4 = 80 000 бит
80 000 / 8 = 10 000 байт

ответ:
для изображения размером 200×100 пикселей
при глубине цвета 4 бит (16 цветов)
необходимо 10 000 байт

2.
количество px в изображении = 200 * 150 = 30 000 px
битность => 258 цветов = 8 бит

30 000 * 4 = 120 000 бит
120 000 / 8 = 15 000 байт

ответ:
для изображения размером 200×150 пикселей
при глубине цвета 4 бит (16 цветов)
необходимо 15 000 байт

3.
количество px в изображении = 20 * 30 = 600 px
256 цветов = 8 бит

600 * 8 = 4 800 бит
4 800 / 8 = 600 байт

4.
6 px = 2 * 3
2³ = 8 цветов

Двоичный код цветов 3-битной палитры:
R G B
1 1 1 белый
0 0 0 черный
1 0 1 малиновый
1 0 0 красный
0 0 1 синий
0 1 1 бирюзовый
0 1 0 зеленый
1 1 0 желтый

Изображение из 6 px
с основными цветами (без белого и черного):
мал кра син
бир зел жел

Двоичный код изображения:
101 100 001
011 010 110

1. Короткий современный вариант ("один оператор")

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  Writeln('Sпол.неч = ',ArrRandom(50,-10,20).Println
    .Where((x,i)->(x>0) and (i.IsEven)).Sum)
end.

Тестовое решение
15 16 0 17 20 7 -3 -4 9 9 -3 -8 14 10 10 11 7 18 -8 8 0 15 1 4 11 1 9 -10 -7 -7 12 17 8 13 7 15 1 13 12 11 4 -5 -3 -6 -5 -10 -9 -8 8 -8
Sпол.неч = 148

2. Длинный "школьный" вариант ("почувствуйте разницу")

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
var
  a:array[1..50] of integer;
  i,s:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to 50 do begin
    a[i]:=Random(31)-10; Write(a[i],' ');
    if (a[i]>0) and Odd(i) then s:=s+a[i]
    end;
  Writeln;
  Writeln('Sпол.неч = ',s)
end.

Тестовое решение
4 14 4 7 9 -4 3 6 20 -10 3 -3 15 12 9 0 3 12 13 -1 9 -2 -2 16 18 -2 5 9 17 -3 4 -6 10 10 -5 10 8 13 12 15 13 1 12 1 7 6 9 2 -9 -6
Sпол.неч = 207