<span>100011011101 = 2269. Изначально число уже в двоичной системе</span>
Написано на Pascal:
Program ArraySequence;
Var a: Array [1..10] Of Integer;
i: Integer;
Begin
a[0] := 2;
For i := 1 To 9 Do
a[i] := 2*a[i-1] - 1;
For i := 0 To 9 Do
Write(a[i], ' ');
ReadLn;
End.<span>
</span>
Var x,y,S:real;
k:integer;
Begin
x:=-4;
k:=0;
While x<7 do
Begin
if (x < -3) then y:=2*x-5*Sin(x)
else if (-3 <= x)and(x <= 5) then y:=1-Sin(x)
else y:=ln(4*x+Sin(x));
if (y > 0) then
Begin
S:=S+y;
k:=k+1
End;
WriteLn('y(',x:0:1,') = ',y:0:3);
x:=x+0.2
End;
WriteLn('Sr = ',S/k);
ReadLn
End.