Найдите неизвестные x и y, если верны соотношения 16^y мбайт=8^x бит и 2^x кбайт=2^y мбайт. , )

2^4y мбайт= 2^3x бит 2^23+4y=2^3x  23+4y=3x - это первое уравнение  2^x кбайт= 2^y мбайт 2^x = 2^ 10+y  x=10+y - второе уравнение  23+4y= 3(10+y)  23+4y=30+3y  y=7  x=17

Uses crt; const n=10; var j: array [1..n] of real;     sum: real;     b: integer; begin       sum: =0;       for b: =1 to n do           j[b]: =sin(b)/cos(b);       for b: =1 to n do           writeln(j[b]: 5: 3);       for b: =2 to n-1 do           if (j[b]> j[b+1]) and (j[b]> j[b-1]) then sum: =sum+j[b];       if j[1]> j[2] then sum: =sum+j[1];       if j[n]> j[n-1] then sum: =sum+j[n];       writeln;       write('sum=',sum: 5: 3); end.

Var     x, y: array [1..50] of integer;     i: integer; begin       for i : = 1 to 50 do           x[i] : = random(50);       for i : = 1 to 50 do           y[i] : = x[51 - i];       for i : = 1 to 50 do           writeln('x[', i, '] => ', x[i]);       for i : = 1 to 50 do           writeln('y[', i, '] => ', y[i]); end.вот, циклы объединять не стал, т.к. они всё-таки разные дела делают: )