<span>8 килобайт))..........</span>
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var b:=ArrRandom(ReadInteger('n='),10,99); b.Println;
var a:=b.Reverse.ToArray;
a.Println
end.
<u><em>Тестовое решение:</em></u>
n= 13
53 75 96 56 24 37 99 57 96 41 51 31 50
50 31 51 41 96 57 99 37 24 56 96 75 53
ADBC216<span> = </span>711<span>618
</span>AD3416<span> = 44</span><span>340
</span>2F6516<span> = 12</span><span>133</span>
Власть, каска, слон, пол, тело, еда, эра( больше никак).
Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub