натуральные числа Опции

[Dik]

Т ак а я в о т з а д а ч к а:
Определить все натуральные числа от 10 до 20000 сумма цифр каждого из которых возведенноя в некоторою степень дает само число.
Например 9*9=81
18*18*18=5832

[xds]

Код

program NatNum;

var
 i, n, s: Integer;
 p: LongInt;

begin
 for i := 10 to 20000 do
   begin
     n := i;
     s := 0;
     while n <> 0 do
       begin
         Inc(s, n mod 10);
         n := n div 10;
       end;
     if s = 1 then Continue;
     p := s;
     while p < i do
       p := p * s;
     if p = i then Write(i, ' ');
   end;
 Writeln;
end.

[Dik]

Спасиб, все работает! :yes: