fork download
copy 
  1. uses crt;
  2.  
  3. var
  4. n: integer;
  5. x,s : extended;
  6.  
  7. begin
  8. s:=0;
  9. x:=-1;
  10. writeln('А1 = ', x:0:0);
  11.   for n:=2 to 15 do
  12.     begin
  13.       x := x*(-1)*(2*n-1)*(2*n-2);
  14.       s:=s+x;
  15.       writeln('А',n,' = ', x:0:0);
  16.     end;
  17.     writeln('S = ',s:0:0);
  18. end.
Success #stdin #stdout 0.02s 296KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
А1 = -1
А2 = 6
А3 = -120
А4 = 5040
А5 = -362880
А6 = 39916800
А7 = -6227020800
А8 = 1307674368000
А9 = -355687428096000
А10 = 121645100408832000
А11 = -51090942171709440000
А12 = 25852016738884977000000
А13 = -15511210043330986000000000
А14 = 10888869450418352000000000000
А15 = -8841761993739702000000000000000
S = -8830888609698279800000000000000
https://ideone.com/DYukl
language:
Pascal (fpc 3.0.4)
created:
11 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!