Предмет: Информатика,
автор: marisa14
составьте программу нахождения трёхзначного числа , куб суммы цифр которого равен ему самому
Ответы
Автор ответа:
0
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
Интересные вопросы
Предмет: География,
автор: adylsakenov
Предмет: Математика,
автор: arinanesmeyana
Предмет: Математика,
автор: grishin8659
Предмет: История,
автор: Зема1500