Question

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

Answer 1

program SumOfFifthPowersProgram;

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

var
  i: LongInt;

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



(*
run:

4150
4151
54748
92727
93084
194979

*)

 

70+ SQL courses for beginners and professionals