Составьте программу нахождения трёхзначного числа, куб суммы цифр которого равен ему самому

Question

Информатика

Ванюра

22 февраля, 03:15

Составьте программу нахождения трёхзначного числа, куб суммы цифр которого равен ему самому

+2

Ответы (1)

Знаете ответ?

Романка · Answer 1

var

a, b, c, n:integer;

begin

for n:=100 to 999 do

begin

a: = n div 100;

b: = n div 10 mod 10;

c: = n mod 10;

if (a+b+c) * (a+b+c) * (a+b+c) = n then writeln (n) ;

end;

end.

и в результате получаем, что это число 512