Дан файл f, содержащий сведения о кубиках: размер каждого кубика (длина ребра в см), его цвет (красный, зеленый, желтый, синий) и материал (деревянный, металлический, картонный найдите: количество кубиков каждого из перечисленных цветов и их суммарный объём;

№1 var a,b,c,p: real;   begin  writeln('введите три стороны треугольника');   read(a,b,c);   p: =(a+b+c)/2;   p: =sqrt(p*(p-a)*(p-b)*(p-c));   writeln('площадь треугольника = ',p);   end.  №2 var x1,y1,x2,y2,d: real;   begin  writeln('введите координаты точки a');   read(x1,y1);   writeln('введите координаты точки b');   read(x2,y2);   d: =sqrt(sqr(x2-x1)+sqr(y2-y1));   writeln('длина отрезка ав=',d);   end. 

Запомни: в 1 байте 8 бит, в 1 кбайте 1024 байт, 1  мегабайте =  1024 кбайт, 1  гигабайт = 1024 мегабайт. исходя из этого имеем ( всё к битам): 1)  5 бит 2)  15 байт = 15*8 бит = 120 бит 3)  1024 килобайт = 1024*1024 байт = 1048576 байт = 1048576 *   8 бит = 8388608 бит 4) 1024 мегабайт = 1024*1024*1024*8 бит =  8589934592 бит 5) 15 килобайт = 15*1024*8 бит =  122880 бит таким образом: 5 бит → 15 байт →  15 килобайт → 1024 килобайт → 1024 мегабайт (хотя здесь и вычислять ничего не нужно - всё итак очевидно и без расчётов)