function SumDigit(n: integer): integer;
begin
result := 0;
var s := n.ToString;
for var i := 1 to s.length do
result += s[i].ToDigit;
end;
var n := ReadInteger();
var SumN := SumDigit(n);
var found := False;
for var i := 1 to n - 1 do
if SumDigit(i) = SumN then
Print(i);
found := True
if not found then Print('нет')
end.
1
2
3
4
5
6
7
8
9
12
18
24
30
36
42
48
54
60
66
72
78
84
90
96
102
108
var m:integer;
найдем количество информации в одном символе. Оно равно 7 бит