Найдите x: 1)16x бит=128 кбайта 2)8x бит=32 кбайта

1) 16х=128 кб - переведём кб в бит 128 кб = 128 *1024 * 8 =  1048576

дальше проще 16х=1048576

                                                              х=1048576 : 16

                                                              х=65536

2) 8х=32 кб - так же переводим в биты 32кб=32*1024*8=262144 бит

                    8х=262144

                      х=262144 : 8

                      х=32768

program xxx;

  var a, b, s, i : integer;

begin

  write('введите а-');

  readln (a);

  write('введите b-');

  readln (b);

  s: =0;   for i: = a to b do        s: =s + i * sqr(i);

    writeln ('сумма кубов =', s)

end.

const

  n=10;  

var

  a: array[1..n] of integer;

  i,x,k,j,s: integer;  

begin

randomize:

for i: =1 to n do a[i]: =random(255);     {формируем случайный массив}

for i: =1 to n do write(a[i],' ');                         {выводим этот массив его на экран}

writeln('x='); read(x);                                                 {вводим x, в программе}

for i: =1 to n do if x=a[i]                     {если х=a[i] тогда}

then for j: =i to n do                                                  {начинаем новый цикл с i до n}

              s: =s+a[j];                                                                 {вычисляем сумму}  

writeln(s);                                        

end;