Получить все числа Армстронга, состоящие из трех и четырех цифр.

[Shyrick]

Получить все числа Армстронга, состоящие из трех и четырех цифр. (Паскаль)
(Натуральное число из n цифр является числом Армстронга, если сумма его цифр, возведенных в n-ю степень, равна самому числу)

[Bugrimov]

Интересно посмотреть, что сделали самостоятельно..

[Bugrimov]

Ну вот, немного по разбирался... Подключил функцию возведения в степень и все...

uses crt;
  
function power(t, k: integer): integer; { Возведение в степень }
var
  res : integer;
begin
  res := 1;
  while (k > 0) do
  begin
    if (k mod 2 = 1) then  
      res := res * t;
    t := t * t;
    k := k div 2;
  end;
  power := res;
end;

var
  n, i, j : integer;
  count :   integer;  { Количество цифр }
  summ :    integer;  { Сумма чисел }
begin
  count := 0;
  summ := 0;
  
  writeln;
  write(' Введите натуральное число (наприм. 123 или 1234): ');
  readln(n);
  
  i := n;
  
  while(i >= 1) do    { Подсчет количество цифр }
  begin
    i := i div 10;
    inc(count);
  end;
  
  i := n;
  for j := 1 to count do { Суммирование и возведение в степень }
  begin
    summ:= summ + power((i mod 10), count);
    i := i div 10;
  end;
  writeln;
  if(summ = n) then
    writeln(' ', n, ' - число Армстронга!')
  else
    writeln(' Не является числом Армстронга.');
end.

Проверяйте!