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

Question

Информатика

Фадей

15 апреля, 08:38

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

+4

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