Информатика решить с деление в столбик в

Задача 1

Дано:

K = 16 * 32 * 25 шт = 12800 шт

i = 16 бит

I - ?

I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)

Вес текста I = K * i = 12800 * 16 бит = 204800.0 бит

204800.0 бит = 25600.0 байт = 25.0 Кбайт

Задача 2

Дано:

K = 16 * 32 * 20 шт = 10240 шт

i = 16 бит

I - ?

I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)

Вес текста I = K * i = 10240 * 16 бит = 163840.0 бит

163840.0 бит = 20480.0 байт = 20.0 Кбайт

Задача 3

Дано:

K = 32 * 32 * 30 шт = 30720 шт

i = 8 бит

I - ?

I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)

Вес текста I = K * i = 30720 * 8 бит = 245760.0 бит

245760.0 бит = 30720.0 байт = 30.0 Кбайт

var a:array[1..40] of integer;

i, j, cou, coumax, amax: integer;

begin

   coumax:=0;

   for i:=1 to 40 do

      readln(a[i]);

   for i:=1 to 40 do begin

      cou:=0;

      for j:=1 to 40 do

         if(a[i]=a[j]) then inc(cou);

      if(cou>coumax) then begin

         coumax:=cou;

         amax:=a[i];

      end;

   writeln(amax, ' is the most repeated value');

end.

var a1, temp, cou, i, sum:integer;

begin

   read(a1);

   if (a1>=0) then cou:=1 else cou:=0;

   if (cou>0) then sum:=a1 else sum:=0;

   for i:=2 to 40 do begin

      read(temp);

      if (temp>0) and (temp mod a1=0) then begin

         inc(cou);

         inc(sum,temp);

      end;

   end;

   writeln(sum/cou)

end.