Напишите функцию, вычисляющую сумму четвертых степеней цифр этого числа. Используя эту функцию, напишите программу, выводящую все числа, равные сумме четвертых степеней своих цифр.

Сумма 4-х степеней N-значного числа не превосходит N * 9^4 < 10000N.

С другой стороны, N-значное число больше 10^ (N-2).

Для того, чтобы одно было равно другому, должно выполниться

10^ (N - 2) < 10000N, 10^N < N * 10^6.

Так может быть, только если N < 7, поэтому ищем числа среди 1 ... 999999.

Код:

function Sum4Deg (n: integer) : integer;

var

s: integer;

begin

s : = 0;

repeat

s : = s + sqr (sqr (n mod 10)) ;

n : = n div 10;

until n = 0;

Sum4Deg : = s;

end;

var

i: integer;

begin

for i : = 1 to 999999 do

if i = Sum4Deg (i) then

writeln (i) ;

end.