fork download
copy 
  1. program p3;
  2.  
  3. function rec(i, x: real): real;
  4. begin
  5.     if i <= 21 then
  6.         rec := x * rec(i+1, x+2)
  7. end;
  8.  
  9. begin
  10.     writeln('S = ', rec(1, 2));
  11. end.
Success #stdin #stdout 0s 288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
S =  0.00000000000000E+000
https://ideone.com/K8GOzn
language:
Pascal (fpc 3.0.4)
created:
7 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!