1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

program quersumme;
{$APPTYPE CONSOLE}


const BASIS_MAX=100;
      BASIS_DEZIMAL=10;


var zahl:integer;

function  ermittele_ziffer(zahl1,stellen_basis:integer):integer;
var stellen_index:integer;
begin
  stellen_index:=BASIS_MAX;
  repeat
    ermittele_ziffer:=zahl1 div stellen_index;
    zahl1:=zahl1 mod stellen_index;
    stellen_index:=stellen_index div BASIS_DEZIMAL;
  until stellen_index<stellen_basis;
end;

begin
  readln(zahl);
  writeln(ermittele_ziffer(zahl,100)+ermittele_ziffer(zahl,10)+ermittele_ziffer(zahl,1));
  readln;
end.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

program quersumme;
{$APPTYPE CONSOLE}


const basis_100=100;
      basis_10=10;
      basis_1=1;
var zahl,stelle1,stelle2,stelle3,summe:integer;
procedure  ermittele_stelle(zahl1:integer;var stelle:integer;basis:integer);
var bas,rest:integer;
begin
  bas:=basis_100;
  rest:=zahl;
  repeat
    stelle:=rest div bas;
    rest:=rest mod bas;
    bas:=bas div basis_10;
  until bas<basis;
end;

begin
  readln(zahl);
  summe:=0;
  repeat
    ermittele_stelle(zahl,stelle1,basis_100);
    ermittele_stelle(zahl,stelle2,basis_10);
    ermittele_stelle(zahl,stelle3,basis_1);
    summe:=stelle1+stelle2+stelle3;
    zahl:=summe;
  until summe<10;
  writeln(zahl);
  readln;
end.