Question

Помогите, Пожалуйста.
Числа Армстронга. Натуральное число называется числом Арм., если сумма цифр числа, возведенных в n-ую степень, где n- кол-во цифр в числе, равна самому себе ( 153=1^3+5^3+3^3). Найдите все трехзначные и четырехзначные числа Арм. (pascal)

Answer 1

var a,a_2,n,j: integer;
var  i: array [0..10] of real;
var sum: real;
begin
write('Числа Амстронга: ');
for a:=100 to 9999 do
begin
n:=0;
sum:=0;
a_2:=a;
while a_2<>0 do
begin
i[n]:=a_2 mod 10;
n+=1;
a_2:=a_2 div 10;
end;
for j:=0 to n-1 do
sum:=power(i[j],n)+sum;
if (sum = a) then
write(a,' ');
end;
end.