Запишите числа в прямом коде (формат 1 байт) 31 -63 65 - 128

program first;

var z,d,k: integer;

begin

writeln('input z,d,k');

readln(z,d,k);

if (d> =z) then

d: =d-z

k: =k+1

writeln(d,'    ',k);

readln;

end.

ответ 138 номер последнего

решение 1024/8+10=128+10=138

1 байит= 8 бит