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

Question

Информатика

Ванюра

19 марта, 22:21

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

+3

Ответы (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