СLS
INPUT x
IF (2x-3)<0 THEN PRINT "не может быть": END
<span>y=(SQR(((2*x-3)^5)+sin(x)))/(1/(tan(x^3*ABS(x-3))))</span>
PRINT y
END
CLS
INPUT a
INPUT b
w=a
a=b
b=w
PRINT a
PRINT b
END
22, 25, 28, 52, 55, 58, 82, 85, 88
Всего символов: 290*39*67=757770 символов.
Если это просто символы типа char кодировки ASCII, то так как char имеет размер 1 байт, то книга занимает 757770 байт, или 757770/8=6062160 бит
Var
i,min:integer;
m:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(m[i]);
if i=1 then min:=m[i];
if m[i]<min then min:=m[i];
end;
for i:=1 to 10 do
begin
if m[i]=0 then m[i]:=min;
write(m[i],' ');
end;
<span>end.</span>
16 символов. 16=2⁴; 4 бита одна буква.
"ДВАЖДЫ ДВА - ЧЕТЫРЕ"
6букв, пробел, 3 буквы, пробел, тире, пробел, 6 букв.
6+1+3+1+1+1+6=19*4бита=76 бит
Другие варианты для понимания:
"ДВАЖДЫ*ДВА=ЧЕТЫРЕ"
17*4бита=68 бит
"2*2=4"
5*4=20 бит