Question

натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в N-ю степень, где N - количество цифр в числе, равна самому числу. Напримерт153=1^3 5^3 3^3. Найдитетвсе трехзначныеии четырехзначныеичисла Армстронга

Answer 1

var a,b,c,d,a2:integer;
begin 
 for a:=100 to 9999 do begin      
 d:=0;      
 a2:=a; 
 while (a2 <> 0) do begin
      b:= a2 mod 10;
      a2:= a2 div 10;
      if a<1000 then c:= (b*b*b)
      else c:=(b*b*b*b);
      d:= d+c;
   end;
       if (a = d) then writeln('число армстронга ==> ', a);
     end;
end.