Первая:
var
x,y:integer;
begin
writeln('Vvedite x');
readln(x);
if x>0 then
y:=sqr(x)
else
y:=x+1;
writeln(y);
end.
Вторая
var
x:integer;
y:real;
begin
writeln('vvedite x');
readln(x);
if (x<0) and (x>=-1) then
y:=12.5*2
else
if x<-1 then
y:=x-1
else
y:=12*x;
writeln(y);
end.
1) На 24 буквы+ пробел=25*8=200, а на цифры без арифм.знаком достаточно полуслова (4 бита), 8=1000(2), значит 204 двоичного разряда.
2)7=2^i,i =<span><span>2,807355 бит на 1 нотный знак
</span></span><span>
2,807355*180=</span><span><span>505,3239 бита
3)N=2^i, 8=2^i, i=3 бита</span></span>