10. ..........................
Если это Паскаль. то нумерация массива с 1 начинается. Цикл увеличивает все элементы массива на единицу. Следовательно, x[2] вернет 4.
Uses crt;
var
k: integer;
x, s, a: real;
begin
ClrScr;
Write('x=');
Readln(x);
a := x;
s := a;
k := 3;
while k < 13 do
begin
a := a * (-1) * x * x / k / (k - 1);
s := s + a;
k := k + 2;
end;
writeln('s=', s:5:6);
Readkey;
end.
Флеш-память, бумага, магнитная пленка
Достоверность,обьективность,ценность,актуальность