fork download
copy 
  1. program ideone;
  2.  
  3.  
  4. function SumNum(sum,num:integer):integer;
  5. begin
  6.     if 0 = num then
  7.     begin
  8.         SumNum:=sum;
  9.         exit;
  10.     end;
  11.     SumNum := SumNum(sum + num mod 10,num div 10);
  12. end;
  13.  
  14. begin
  15.  
  16. 	Writeln(SumNum(0,1234));
  17.  
  18. end.
Success #stdin #stdout 0s 5568KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
10
https://ideone.com/ToU2VT
language:
Pascal (gpc 20070904)
created:
2 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!