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