2^6 = 64
так как один бит может быть 0 или 1
Var E,P:decimal;
i,j:integer;
Begin
E:=0;
For i:= 3 to 8 do
Begin
P:=1;
For j:= 1 to 9 do
P:=P*sqr(i+j);
E:=E+P
End;
WriteLn('S = ',E);
End.
16 бит........................................
<span>49,20,77,61,73,20,62,6F,72,6E,20,69,6E,20,31,39,37,35</span>
Земляника , малина , яблоко, вишня , смородина