Ответы
Ответ дал:
0
var
i,z:integer;
x,n,s,y,t:real;
begin
write('Введите x: ');
readln(x);
z:=1;
y:=1;
n:=2;
repeat
i:=i+1;
y:=y*x*x;
n:=n*(2*i+2)*(2*i+1);
t:=z*(2*i+1)*y/n;
s:=s+t;
z:=-z;
until t<=1e-6;
writeln('S=',s);
end.
i,z:integer;
x,n,s,y,t:real;
begin
write('Введите x: ');
readln(x);
z:=1;
y:=1;
n:=2;
repeat
i:=i+1;
y:=y*x*x;
n:=n*(2*i+2)*(2*i+1);
t:=z*(2*i+1)*y/n;
s:=s+t;
z:=-z;
until t<=1e-6;
writeln('S=',s);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад