fork download
copy 
  1. program ideone;
  2.  
  3. Function Power(A: integer; N: integer) : integer; 
  4. Begin 
  5.   If N=0 then 
  6.     Power:= 1 
  7.   Else 
  8.     Power:= A*Power(A, N-1); 
  9. End;
  10.  
  11. function Calc(N:integer; node:integer) : integer;
  12. begin
  13.   if (node<=n) then
  14.   begin
  15.     Calc := Power(2, Power(2, max(0, node-2))) - 1 + Calc(N, node+1)
  16.   end
  17.   else
  18.     Calc := 0;
  19. end;
  20. var
  21.   i:integer;
  22.  
  23. begin
  24.   for i := 1 to 4 do
  25.     writeln(Calc(i, 1));
  26. end.
Success #stdin #stdout 0.02s 4068KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
2
5
20
https://ideone.com/pfQGHO
language:
Pascal (gpc 20070904)
created:
12 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!