fork download
copy 
  1. program pr5;
  2. var s,i,e,t:real;
  3. n:integer;
  4. begin
  5. writeln('enter parametr n-');
  6. readln(n);
  7. e:=0.0001;
  8. s:=0;i:=1;t:=1/n;
  9. while t>e do
  10. begin
  11. s:=s+t;
  12. i:=i+1;
  13. t:=exp(ln(1)*(i+1))*exp(ln(i)*(2*i+1))/4*sqr(i)-1;
  14. end;
  15. writeln('result is ',s:5:2);
  16. end.
Runtime error #stdin #stdout 0.01s 252KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
enter parametr n-
Runtime error 200 at $0804813C
  $0804813C
  $0805EF01
https://ideone.com/qGTTr
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!