Если трёхзначное число равно сумме кубов цифр, образующих

это число, то такое число называется "магическим". Найти и вывести все

"магические числа". (Написать функцию вычисления суммы кубов цифр

трёхзначного числа). Паскаль, через функции пользователя.

Var i:integer;

function sum (n:integer) : integer;

var n1, n2, n3:integer;

begin

n1:=n div 100;

n2:=n div 10 mod 10;

n3:=n md 10;

sum:=n1*n1*n1+n2*n2*n2+n3*n3*n3;

end;

begin

writeln ('Магические числа:') ;

for i:=100 to 999 do

if i=sum (i) then writeln (i) ;

end.

Результат:

Магические числа:

153

370

371

407