Запишем формулу суммы в виде, более удобном для программирования:
var
i:integer;
x,xi,x2,s:real;
begin
Write('x = '); Read(x);
s:=0.5;
xi:=x;
x2:=x*x;
for i:=2 to 10 do begin
xi:=xi*x2;
s:=s+xi/(2*i)
end;
Writeln('S=',s)
end.
<u>Пример</u>x = 3.62
S=2254030236.00533
<em>Во вложении приведено контрольное решение</em>
Нужно делать хорошее, чтобы люди не возненавидели. Надо говорить хорошими для окружающих делами
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(10,0,20).Println;
a:= a.Where((v,i) -> i <> 4).ToArray;
a.Println;
end.
<span>Множество символов кодовой таблицы ASCII. Каждому символу приписывается целое число в диапазоне от 0 до 255.</span>