23 lines
412 B
ObjectPascal
23 lines
412 B
ObjectPascal
##
|
|
var fact := |1| * 12;
|
|
for var i := 1 to 11 do fact[i] := i * fact[i - 1];
|
|
|
|
for var b := 9 to 12 do
|
|
begin
|
|
write('The factorions for base ', b:2, ' are: ');
|
|
for var i := 1 to 1_500_000 do
|
|
begin
|
|
var fact_sum := 0;
|
|
var j := i;
|
|
while j > 0 do
|
|
begin
|
|
var d := j mod b;
|
|
fact_sum += fact[d];
|
|
j := j div b;
|
|
end;
|
|
if fact_sum = i then
|
|
print(i)
|
|
end;
|
|
println;
|
|
end;
|