Каков информационный объём ( в битах и байтах ) цветной фотографии 20х13, если считать её составленной из отдельных точек (в 1см-26 точек) и каждая может иметь 12 оттенков

Program z1; var s, s1, s2, s3, s4, s5, s6, s7, s8:string; begin s:='программа'; s1:=copy (s, 4, 4); s4:=copy (s, 2, 3); s5:=copy (s, 2, 1); s2:=s4+s5; s6:=copy (s, 4, 1); s7:=copy (s, 3, 1); s8:=copy (s, 5, 2); s3:=s6+s7+s8; writeln (s1, s2, s3); end. Посмотри, это пункт а. Если то, что нужно, сделаю остальные.. Program z1; var s, s1, s2, s3, st, o, l, be, c: string; begin s1:='страх'; s2:='белка'; s3:='цыпленок'; st:=copy (s1, 1, 2); o:=copy (s3, 7, 1); l:=copy (s2, 3, 1); be:=copy (s2, 1, 2); c:=copy (s3, 1, 1); s:=st+o+l+be+c; writeln (s); end.

Язык: Pascal.

var

   a: array [1..20] of integer;  {объявляем целочисленный массив на 20 элементов}

   i, min, t, m: integer;  {i - счетчик, min - минимум, t, m - временные переменные}

begin  

{рандом 20 чисел в диапазоне [-20;12]}

 randomize;  

 for i:=1 to 20 do

   a[i]:=random(33)-20;

   min:=a[1];  //присваиваем минимуму первый элемент.

{цикл начинается с 2, чтобы не делать лишнюю итерацию}

 for i:=2 to 20 do  

 begin

{если минимум больше текущего значения элемента массива, то минимуму присваивается это значение и запоминаем его индекс, чтобы в дальнейшем поменять минимальный элемент с последним.}

   if min > a[i] then

   begin

   min:=a[i];

   m:=i;

   end;

 end;

{выводим старый массив}

 Writeln('Старый массив:');

 for i:=1 to 20 do

   writeln(a[i]);

{меняем местами последний элемент с минимальным}

 t:=a[20];

 a[20]:=min;

 a[m]:= t;

{выводим новый массив}

 Writeln('Новый массив:');

 for i:=1 to 20 do

   writeln(a[i]);

end.