Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в N-ю...

Question

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

Comments

тебе программу по поиску написать?

---

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

---

вот она

---

а с низу что то не получилось

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)<br>      else c:=(b*b*b*b);
      d:= d+c;
   end;
       if (a = d) then writeln('число армстронга ==> ', a);
     end;
end.