var
Y: integer;
begin
Write('Y = ');
Readln(Y);
Write('Введенное целое число ',Y,' является отрицательным - ', Y < 0);
Readln
end.
1)
1431_10 = 10110010111_2
всего простаранства у нас 2 байта = 8*2 = 16 бит. Дописываем нули
0000 0101 1001 0111
2)
Всего возможных 8 чисел.
i = log_2 (8) = 3 бита нужно для кодирования одного числа, т.е. полученная информация равна 3 битам
21122
Решение:
8-1=7
7*3=21
21*3=63
63-1=62
62-1=61
Принтер, так как все остальные устройства вводят информацию в пк
Var a,b,r:real;
begin
readln(a,b);
r:=(a+b)*(a+b);
writeln(r);
<span>end.</span>