1. Запишите прямой код числа, интерпретируя его как восьмибитовое целое без знака.
А) 224(10); б) 253(10); в) 226(10)

2. Запишите дополнительный код числа интерпретируя его как восьмибитовое целое со знаком.
А) 115(10); б) - 34(10); в) - 70(10)

В скобках - система счисления
С объяснением

1) Б. 253(10);

2)В. 70(10);

2)program nah;

  var s: string;

begin

s: = 'рэки,горы и ';     (присвоение значения)

writeln (s);                               (вывод)

delete (s, 5,6);                     (удаление из строки s начиная с 5-го символа 6) символа)

writeln(s);                           (вывод результата)

end. 

  решение будет выглядеть так

  рэки, горы и

рэки и  

прости что не решила  

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.