Question

натуральное число называется числом Армстренга, если сумма цифр числа, возведённых в N-ную степень, (где N-ное количество цифр в числе) равна самому числу, например 153=1^3+5^3+3^3 . найти все трёхзначные числа Армстронга . напишите пожалуйста в паскале.

Answer 1

program qq;
var k, a, b, c: integer;
begin
for k:=100 to 999 do begin
a:=k div 100;
b:=k mod 100;
b:=b div 10;
c:=k mod 10;
if a*a*a+b*b*b+c*c*c=k then begin 
writeln (k); 
end;
end;
end.