Решить: 1) сколько дискет емкостью 1.44 мб потребуется для хранения 2^28 бит? 2) решите уравнение 2^xбит=128мб 3)решите систему: 16^yмб=8^xбит, 2^xкб=2^yмб

1)примерно 196 дискет емкостью 1,44 мб

Const   st: array[1..3] of string = ('будапешт', 'рим', 'киев');   nas: array[1..3] of real = (9.9, 61.5, 44.3);   kr: array[1..3] of string = ('венгрия', 'италия', 'украина');   {сведения о численности населения по данным ресурса     countrymeters по состоянию на 03.07.2014} var   i: integer; begin   write('введите 1-венгрия, 2-италия, 3-украина -> ');   readln(i);   if i in [1..3] then       writeln('страна- ', kr[i], ', столица- ', st[i], ', население (млн. ', nas[i])   else       writeln('неверный ввод! ') end. тестовое решение: введите 1-венгрия, 2-италия, 3-украина -> 2 страна- италия, столица- рим, население (млн. 61.5

Function dec2oct(n: integer): string; var   c, s: string;   iquo, irem: integer; begin   s : = '';   iquo : = n;   while iquo < > 0 do   begin       irem : = iquo mod 8;       iquo : = iquo div 8;       str(irem, c);       s : = c + s   end;   if length(s) = 0 then result : = '0'   else result : = s end; var   m: array[1..8] of integer;   i: integer; begin   randomize;   for i : = 1 to 8 do   begin       m[i] : = random(10000);       writeln(m[i]: 5, '(10)=', dec2oct(m[i]), '(8)')   end end. тестовое решение:   973(10)=1715(8)   7245(10)=16115(8)   2511(10)=4717(8)   5136(10)=12020(8)   8002(10)=17502(8)   7101(10)=15675(8)   4277(10)=10265(8)   5916(10)=13434(8) если вместо функции нужна процедура, достаточно заменить несколько строчек. procedure dec2oct(n: integer; s: string); var   c: string;   iquo, irem: integer; begin   s : = '';   iquo : = n;   while iquo < > 0 do   begin       irem : = iquo mod 8;       iquo : = iquo div 8;       str(irem, c);       s : = c + s   end;   if length(s) = 0 then s : = '0' end;