Найдите 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.

program summa;

var s, a, b, c : word;

begin

            write('введите a - > '); readln(a);

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

            write('введите с - > '); readln(c);

            s: =a+b+c;

            write(' сумма равна ',s);

            readln

end.