fork download
copy 
  1. program P;
  2. var a,b:integer;
  3. function f(var a:integer; b:integer):integer;
  4. begin
  5.  if a>0 then f:=f(a,b-1)+2
  6.  else if b<0 then f:=f(a,b+1) -1
  7.  else f:=b;
  8. end;
  9. begin
  10.  a:=1; b:=2;
  11.  writeln(f(a,b))
  12. end.
  13.  
Runtime error #stdin #stdout 0.03s 12176KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/IEWs5
language:
Pascal (gpc 20070904)
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!