fork download
copy 
  1. program for23;
  2. var i,n:integer; 
  3.     s,y,z,e,x:real;
  4. begin
  5. readln(n);
  6. readln(e);
  7. readln(x);
  8. s:=0;
  9. i:=1;
  10. z:=1;
  11. for i:=2 to n do
  12.       begin
  13.       s:=s+x*z;
  14.       z:=-z;
  15.       x:=x*x*x/(2*i-2)*(2*i-1);
  16.       end;
  17. writeln(s);
  18. writeln(sin(x));   
  19. end.
  20.  
Runtime error #stdin #stdout 0.01s 252KB
comments (?)
stdin
copy 
6
100
60
stdout
copy 
Runtime error 207 at $08048202
  $08048202
  $0805EF21
https://ideone.com/0FIMt
language:
Pascal (fpc 3.0.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!