Переведите количество информации в другие единицы измерения, используя степени числа 2.

пример : 2 мбайта = 2 • 2^10 кбайт = 2^11 кбайт= 2^11 • 2^10 байт = 2^21 байт

1) 16 кбайт =_ кбайт=_байт=_бит=_бит.
2) 2^15 кбайт =_мбайт=_мбайт
3)2^17 бит=_байт=_байт=_кбайт=_кбайт
4) 32 гбайт=_гбайт=_мбайт=_мбайт=_кбайт=_ кбайт
5) 2^23 байт=_байт=_кбайт=_кбайт=_мбайт=_мб айт
6) 64 мбайт=_мбайт=_кбайт=кбайт=_байт=_ба йт

а)домащняя библиотека

в виде таблицы

1.номер

2.название

3.автор

4.полка

б)1.номер

2.слово

3.вопрос

4.род

5.число

6.падеж

в)1.номер

2.имя

3.фамилия

4.отчество

5.телефон

6.адрес

7.дата рождения

8.хобби

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.

в двоичной 1000001

в восмеричной 101

в шеснадцатеричной 41