fork download
copy 
  1. program ideone;
  2. 	 var n:longint; c,s,k:byte;
  3. begin
  4.  read(n);
  5.  k:=0; s:=0;
  6.  repeat
  7.      c:= n mod 10;
  8.      k:=k+1; s:=s+c;
  9.      n:=n div 10;
  10.  until n=0;
  11.  writeln( k,' ',s);
  12.  
  13. end.
Success #stdin #stdout 0s 5436KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1 0
https://ideone.com/8yWyD8
language:
Pascal (fpc 3.0.4)
created:
1 year 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!