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.
|