Program z_3;
var a,b,n,s, i: integer;
Begin
repeat
writeln ('Введите Ваше число');
readln (n);
if (n < 10) or (n > 99) then i:= 0
else i:= 1;
until i>0;
a:= n mod 100 div 10;
b:= n mod 10;
s:= (a+b)+sqr (a+b);
if s <> n then writeln ('Число не соотвествует условию')
else writeln ('Число ',s, ' соответствует условию');
End.
Ты разве уже это не просил? Внутри кода замени все вопросы и ответы на свои. Затем скомпилируй если надо
-17 = 1 0010001
Первая единица - знак числа"-"
данное в условии число является шестнадцатеричным. Переведем его в десятичную систему счисления, записав в стандартном виде
E*16^3+4*16^2+1*16^1+A*16^0+1*16^-1+2*16^-2
Вместо буквы Е подставим число 14, а вместо буквы А подставим число 10, перемножим и получим ответ 58394,0703125
I=log₂(1/P)
P=K/N (K - кол-во случившихся событий, N - всего событий)
P=1/4
I=log₂4=2 бит
Ответ: 2 бит