1) Всього в бібліотеці є 16*8=128 полиць.
2^k=128 => k=7
Отже, щоб закодувати числа від одного до 128, потрібно 7 біт.
Відповідь: повідомлення містить 7 біт
2) ПОВІДОМЛЕННЯ
Программа находится во вложении, надеюсь поможет.
Var
a,c:integer;
b:real;
begin
readln(a,c);
b:=sqrt(c*c-a*a);
writeln('Sabc ',a*b/2);
end.
Var a: integer;
begin
readln(a);
if a >= 0 then
if a = 0 then a := 10
else Inc(a)
else a -= 2;
write(a);
end.