Объяснение:
uses crt;
var k:integer;
x,e,t,s:real;
begin
clrscr;
repeat
write('x<>0 x=');
readln(x);
until x<>0;
repeat
write('e>0 e=');
readln(e);
until e>0;
if e>=sqr(x/2)then s:=sqr(x/2)
else
begin
k:=0;
t:=sqr(x/2);
s:=t;
while abs(t)>e do
begin
k:=k+1;{увеличиваем счетчик}
t:=-t*sqr(x/2)/sqr(k+1);
s:=s+t;{прибавляем}
end;
end;
write('S=',s:0:5);
readln
end.
