Получите внутреннее представление чисел "157" и "-157" в 8-разрядной ячейке памяти в формате со знаком

Число -157 невозможно поместить в 1 байт. ( 7 бит может представить число от 0 до 128) 

Const   n=8; var   anam, afam, adat: array[1..n] of string;   i: integer; begin   anam[1]: ='олег'; afam[1]: ='бубенков'; adat[1]: ='1993';   anam[2]: ='игорь'; afam[2]: ='бросов'; adat[2]: ='1991';   anam[3]: ='тимур'; afam[3]: ='наружный'; adat[3]: ='1961';   anam[4]: ='анастасия'; afam[4]: ='боброва'; adat[4]: ='1985';   anam[5]: ='михаил'; afam[5]: ='тапаров'; adat[5]: ='1957';   anam[6]: ='евгений'; afam[6]: ='костарева'; adat[6]: ='1992';   anam[7]: ='мария'; afam[7]: ='никитин'; adat[7]: ='1977';   anam[8]: ='ксения'; afam[8]: ='бабенкова'; adat[8]: ='1978';   writeln('лица, чьи фамилии начинаются на букву "б"');   for i : = 1 to n do       if afam[i][1] = 'б' then           writeln(anam[i],' ',afam[i], ' (', adat[i], ')') end. тестовый прогон: лица, чьи фамилии начинаются на букву "б" олег бубенков (1993) игорь бросов (1991) анастасия боброва (1985) ксения бабенкова (1978) возможна также более "современная" запись программы const   n = 8; type   tp = record       nam: string;       fam: string;       dat: string   end; var   m: array[1..n] of tp;   i: integer; begin   with m[1] do begin nam : = 'олег'; fam : = 'бубенков'; dat : = '1993' end;   with m[2] do begin nam : = 'игорь'; fam : = 'бросов'; dat : = '1991' end;   with m[3] do begin nam : = 'тимур'; fam : = 'наружный'; dat : = '1961' end;   with m[4] do begin nam : = 'анастасия'; fam : = 'боброва'; dat : = '1985' end;   with m[5] do begin nam : = 'михаил'; fam : = 'тапаров'; dat : = '1957' end;   with m[6] do begin nam : = 'евгений'; fam : = 'костарева'; dat : = '1992' end;   with m[7] do begin nam : = 'мария'; fam : = 'никитин'; dat : = '1977' end;   with m[8] do begin nam : = 'ксения'; fam : = 'бабенкова'; dat : = '1978' end;   writeln('лица, чьи фамилии начинаются на букву "б"');   for i : = 1 to n do       with m[i] do begin           if fam[1] = 'б' then               writeln(nam, ' ', fam, ' (', dat, ')')       end end.

Const   n = 5; //емкость памяти типа "кольцо" type   ring = array[1..n] of integer; var   ir: integer;   r: ring; procedure add2ring(a: integer);   // добавляет в кольцо очередной элемент begin   if ir = n then ir : = 1   else ir : = ir + 1;   r[ir] : = a end; var   i, s, d: integer;   p: longint; begin   s : = 0;   ir: =0;   writeln('вводите числа, 0 - конец ввода');   for i : = 1 to n do   begin       readln(d);       s : = s + d;       add2ring(d)   end;   repeat       readln(d);       if d < > 0 then add2ring(d);   until d = 0;   p : = 1;   for i : = 1 to n do p : = p * r[i];   writeln('сумма первых ', n, ' чисел: ', s, ', произведение последних: ', p) end.