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

Ответы 1

  • var a,b,c,n:integer;beginfor 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

    • Автор:

      cherdtvn
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years