Найти х из следующих соотношений: 2 в степени х байт = 16 гбайт и 16 в степени х бит = 64 кбайт.

2в степени х байт = 16 гбайт x=34 16 в степени х бит = 64 кбайт x=4,75

Var s,n,a: integer; begin write('n = '); readln(n); for n: = 10 to n+9 do       begin       a: =n;       s: =0;       while a > 0 do             begin             s: =s+a mod 10;             a: = a div 10             end;       writeln('сумма цифр ',n,' равна: ',s)       end; end.

Const     n = 3;     m = 4; var     b: array[1..n,1..m] of integer;     i,j,a,c: integer;     s: real; begin writeln('введите массив b[',n,',',m,']: '); for i: = 1 to n do       for j: = 1 to m do               read(b[i,j]); write('a = '); readln(a); write('c = '); readln(c); s: =0; for i: = 1 to n do       for j: = 1 to m do               if (a< b[i,j])and(b[i,j]< c) then                     s: =s+b[i,j]; writeln('s = ',s); end.