fork download
copy 
  1. function F(n:integer):longint;
  2. begin
  3. if n<3 then F:=n+1
  4. else if (n>=3) and (n mod 2 =0) then F:=F(n-2) + n - 2
  5. else F:=F(n+2) + 2 + n
  6. end;
  7. var k, sum: integer;
  8. begin
  9. writeln (F(5));
  10. k:=F(5);
  11. sum:=0;
  12.  
  13. while k>0 do
  14. begin
  15. sum:=sum + k mod 10;
  16. k:=k div 10;
  17. writeln ('s=',sum);
  18. writeln ('k=',k);
  19. end;
  20. writeln (k);
  21. end.
Success #stdin #stdout 0s 4728KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
268435450
-6
https://ideone.com/i974ij
language:
Pascal (fpc 3.0.4)
created:
3 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!