Question

Натуральное число, в записи которого n цифр, называется числом Армстронга, если сумма его цифр, возведенная в степень n, равна самому числу. Найти все числа Армстронга от 1 до к.

Answer 1

Program n1;
function st(a,b: integer): integer;
var i: integer;
begin
st:=1;
for i:=1 to b do st:=st*a;
end;
function ams(x: integer): boolean;
var k,t: integer;
sum: integer;
begin
ams:=false;
t:=x;
k:=0;
while x<>0 do
begin
x:=x div 10;
k:=k+1;
end;
x:=t;
sum:=0;
while t<>0 do
begin
sum:=sum+st(t mod 10,k);
t:=t div 10;
end;
if x=sum then ams:=true;
end;
var i,k: integer;
begin
readln(k);
for i:=1 to k do if ams(i) then write(i,' ');
end.