language: Pascal (fpc) (fpc 2.2.0)
date: 104 days 16 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

program for23;
var i,n:integer; 
    s,y,z,e,x:real;
begin
readln(n);
readln(e);
readln(x);
s:=0;
y:=x;
i:=1;
z:=1;
for i:=2 to n do
      begin
      s:=s+y*z;
      z:=-z;
      y:=y*x*x/(2*i-2)*(2*i-1);
      end;
writeln(s);
writeln(sin(x));   
end.