• Среди всех трезначных чисел найти числа для которых верно утверждение :сумма кубов цифр этого числа равна самому числу.
    Составить Паскаль программу

Ответы 4

  • а можно полегче?я в 8 классе ,поймут что списанно
  • Попробую...
    • Автор:

      miley59
    • 6 лет назад
    • 0
  • спасибо)
    • Автор:

      castro
    • 6 лет назад
    • 0
  • 1. Современный вариант// PascalABC.NET 3.1, сборка 1218 от 12.04.2016begin  var pow3:integer->integer:=n->n*n*n;  var Good:integer->boolean:=n->(pow3(n div 100)+  pow3((n div 10) mod 10)+pow3(n mod 10))=n;  Range(100,999).Where(x->Good(x)).Printend.Результат:153 370 371 4072. Школьный вариант// PascalABC.NET 3.1, сборка 1218 от 12.04.2016var  i,n,d100,d10,d1:integer;begin  for i:=100 to 999 do begin    d100:=i div 100;    d10:=(i div 10) mod 10;    d1:=i mod 10;    if d100*sqr(d100)+d10*sqr(d10)+d1*sqr(d1)=i then      Write(i,' ')    end;end.
    • Автор:

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

Войти через Google

или

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

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

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