fork download
copy 
  1. var
  2.     number, sum: integer;
  3.  
  4. begin
  5.     sum := 0;
  6.     number := 8267;
  7.  
  8.     repeat
  9.         while number <> 0 do begin
  10.             sum := sum + (number mod 10);
  11.             number := number div 10
  12.         end
  13.     until (sum / 10) <> 0;
  14.  
  15.     writeln(sum)
  16. end.
Success #stdin #stdout 0s 288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
23
https://ideone.com/PWQKtg
language:
Pascal (fpc 3.0.4)
created:
8 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!