Памагите, за ответ не от5осу коненчо но сделаю хорошо.В линейном массиве целых чисел, содержащем 20 элементов, добавить элемент массива на k-ое место массива. Массив заполняется случайным образом числами от 0 до 50больше балов нет, сори)

16 бит

Объяснение:

Сначала посчитаем сколько места занимают фотографии

1366 *768*16 - это 1 фотография , а их 50

Итого 50*1366*768*16 = 839270400 бит(так как множили пиксели на биты) в 1 байте  - 8 бит.

839270400/8 = 104908800 байт

Посчитаем сколько это КиБ

104908800/1024 = 102450 КиБ - эта тот объем памяти, которое занимают фото.

Так что из 102584 КиБ - 102450 КиБ это фото. Остальное это текст и служебная информация

102584-102450 = 134 КиБ, из них 128 КиБ это служебная информация

134-128 = 6 Киб - это Текст

6 КиБ , это 6*1024 = 6144 байта; это 6144 *8 = 49152 бита

49152 бита занимает 3072 символа, соответственно 49152/3072 = 16 бит.

Именно столько и занимает 1 символ в презентации.

{#1 Деление на числа меньше 7}

begin

var F: boolean;

var a: integer; read(a);

 for var x := 7 downto 1 do

 begin

   F := (a mod x = 0) ? true : false;

   if F <> true then break;

 end;

end.

{#2 Находится ли точка внутри окружности}

begin

 var F: boolean;

 var z: cardinal;

 var x,y: double; read(x,y,z);

  x := (x<1)? x*-1:x;

  y := (y<1)? y*-1:y;

  if (x<z) and (y<z) then  

 F := true;

end.

{#3 В трехзначном числе есть три одинаковые цифры}

begin

 var F: boolean;

 var n: integer; read(n);

 var s := n.ToString;

 if (s[1] = s[2])  

    or (s[2] = s[3])  

     or (s[1] = s[3]) then

 F := true;

end.

{#4 Точки лежат на одной прямой}

begin

 var F: boolean;

 var x1,y1,x2,y2,x3,y3: integer;

 read (x1,y1,x2,y2,x3,y3);

 if (x2 - x1)*(y3 - y1) - (x3 - x1)*(y2 - y1) = 0 then

 F := true;

end.

{#5 Х или трёхзначное чётное число или четырёхзначное нечётное}

begin

var F: boolean;

var x:integer; read(x);

var s:=x.ToString;

if ((length(s) = 3) and (x mod 2 = 0)) or ((length(s) = 4) and (x mod 2 <> 0)) then

F := true;

end.