Запишите прямой код десятичных чисел в 8 разрядном формате со знаком + 78 и -78

паскаль:

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.

93₁₀ =1011101₂

93 : 2 = 46 (1)

46 : 2 = 23 (0)

23 : 2 = 11 (1)

11 : 2 = 5 (1)

5 : 2 = 2 (1)

2 : 2 = 1 (0)

1 : 2 = 0 (1)

124₁₀ =1111100₂

124 : 2 = 62 (0)

62 : 2 = 31 (0)

31 : 2 = 15 (1)

15 : 2 = 7 (1)

7 : 2 = 3 (1)

3 : 2 = 1 (1)

1 : 2 = 0 (1)

11000 (2) = 30 (8) = 18 (16) = 24 (10)

100111 (2) = 47 (8) = 27 (16) = 39 (10)

10100011 (2) = 243 (8) = а3 (16) = 163 (10)

101010101010 (2) = 5252 (8) = (16) = 2730 (10)

дано:

g= 44,1 кгц= 44100 гц

i= 16 бит

t=2 мин=120 сек

v-?

решение:

v=g*i*t

v= 44100гц*16 бит*120 сек= 8467200 бит

v= 8467200/8*1024*1024= 10 мбайт