Question

How to find the numbers that are the sum of fourth powers of their digits in Pascal

Answer 1

program FourthPowerSumProgram;

function SumOfFourthPowers(n: LongInt): Integer;
var
  sum, digit: Integer;
begin
  sum := 0;
  while n > 0 do
  begin
    digit := n mod 10;
    sum := sum + digit * digit * digit * digit;
    n := n div 10;
  end;
  SumOfFourthPowers := sum;
end;

var
  i: LongInt;

begin
  for i := 1000 to 999999 do
    if i = SumOfFourthPowers(i) then
      writeln(i);
end.



(*
run:

1634
8208
9474

*)

70+ SQL courses for beginners and professionals