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

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.