Помогите пожалуйста, как это сделать?
(условие в изображении)
осталось решить одну задачу, а тут тупик полнейший
уже платно готова.
program sin;
const e=0.000001;
pi=3.14;
var x, s: real;
i: longint;
Begin
Write('Введите x: ');
Readln(x);
i:=1;
s:=0;
while ((1-x*x)/(i*i*pi*pi))<e do
begin
i:=i+1;
s:=s+((1-x*x)/(i*i*pi*pi));
end;
write('S=',s:0:3);
end.