//PascalABC
var
N : integer;
begin
write('Введите число > ');
readln(N);
write('Получите модуль числа > ', abs(N));
end.
8бит = 1байт вроде так...
Program zadacha;vara: array[1..5] of byte;i,max: byte;beginmax:=0;for i:=1 to 5 do begin a[i]:=random(255); write(a[i]:4);end;writeln;
for i:=1 to 5 doif a[i]>max then max:=a[i];
writeln('max=',max);
end.
Надо нажать на ок и стоп одновременно и держать пока не заработает.
Крайний левый (восьмой) разряд отводится под знак числа: 0 для положительных и 1 для отрицательных
32 = 00100000
-32 = 10100000 - в прямом коде
= 10100000 - в дополнительном коде
102 = 01100110
-102 = 11100110 - в прямом коде
= 10011010 - в дополнительном коде
126 = 01111110
-126 = 11111110 - в прямом коде
= 10000010 - в дополнительном коде