Найти x из следующих соотношений: а 16 в степени x бит = 32 мбайт б). 8 в степени x кбайт = 16 гбайт.

a)

16^x бит=2^4x бит

32 мб= 2^5 мб=2^28 бит

28=4x

x=7

 

b)

8^x кбайт=2^3x кбайт

16 гбайт=2^4 гбайт=2^24 кбайт

24=3x

x=8

 

Программа на паскаль. program dik; var i,  min, max, minnum, maxnum: integer; a: array[1..15] of integer; begin for i: = 1 to 15 do     readln(a[i]); max: =a[1]; min: =a[1]; for i: = 1 to 15 do begin    if a[i]< min then begin       min: =a[i]; minnum: =i;     end;     if a[i]> max then begin       max: =a[i]; maxnum: =i;     end; end; writeln('max=', max); writeln('min=', min ); writeln('maxnum=', maxnum ); writeln('minnum=', minnum ); end.

Var  a: array[1..15] of integer;   i, imin, imax: integer; begin   imax: =1;   imin: =1;   for i: =1 to 15 do     begin       readln(a[i]);       if a[i]< a[imin] then imin: =i;       if a[i]> a[imax] then imax: =i;     end;   writeln('минимальный член массива ', a[imin], ', его номер ', imin);   writeln('максимальный член массива ', a[imax], ', его номер ', imax); end.