Натуральное число из n цифр называется числом Армстронга, если сумма его цифр, возведенная в степени n, равна самому числу. Подсчитать все числа Армстронга из двух и трех цифр.
var
a:array[0..10,2..4] of integer;
b:array[1..4] of integer;
i,j,k,m,n,t:integer;
begin
for i:=1 to 10 do
for j:=2 to 4 do begin
a[i,j]:=i;
for k:=2 to j do a[i,j]:=a[i,j]*i;
end;
for i:=10 to 9999 do begin
n:=0;m:=0; t:=i;
while t>0 do begin
n:=n+1;
b[n]:=t mod 10;
t:=t div 10;
end;
for j:=1 to n do m:=m+a[b[j],n];
if m=i then writeln(i);
end;
end.
Кофе для программистов: как напиток влияет на продуктивность кодеров?
Рекламные вывески: как привлечь внимание и увеличить продажи
Стратегії та тренди в SMM - Технології, що формують майбутнє сьогодні
Выделенный сервер, что это, для чего нужен и какие характеристики важны?
Современные решения для бизнеса: как облачные и виртуальные технологии меняют рынок
Сделал глобальный хук на отлов нажатий некоторых клавишНо, не всегда срабатывает
Хочу установить настройки моего всплывающего окна следующим образом: