Умножение младшими вперёд
ма2= 1,01001011 pa2= -2
мb1= 0,11001101 pb1= 3
выполнить а2*b1 ответ в дополнительном коде

800 * 10 = 8000 символов било передано

5000 байт = 5000 * 8 = 40000 бит было передано

40000 : 8000 = 5 бит приходится на кодирование 1 символа

n = 2 ^ i

n = 2^5 = 32 символа размер алфавита.

4 клетки вниз и 7 вправо                                                                                                                           

var s: string; begin  writeln('как вас зовут? ');       readln(s);       case s of        'вася': s: ='василий';         'петя': s: ='петр';         'люся': s: ='людмила';         'миха': s: ='михаил';         'пупс': s: ='пупондий';             else s: ='я с вами не знакома';       end;             writeln(s);       readkey; end.

program num1; uses crt; var a : array [1..10] of integer; i : integer; begin clrscr; for i: =1 to 10 do begin write('a[',i,']='); readln(a[i]) end; for i: =1 to 10 do if a[i]< 0 then a[i]: =abs(a[i]); writeln('********************************'); for i: =1 to 10 do writeln('a[',i,']=',a[i]); end.