Переведите в с++ [требует правки]

208
26 сентября 2017, 07:23

Натуральное число из 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.
READ ALSO
WinAPI вынести hook в dll

WinAPI вынести hook в dll

Сделал глобальный хук на отлов нажатий некоторых клавишНо, не всегда срабатывает

309
Создание динамических блоков

Создание динамических блоков

Есть json такой структуры

382
Помогите разобраться с настройками Popup Semantic-UI

Помогите разобраться с настройками Popup Semantic-UI

Хочу установить настройки моего всплывающего окна следующим образом:

400