Program A2_9;

var

   i,a,b,c,s:integer;

 begin

   for i:=100 to 999  do  { перебор всех трехзн. чисел}

   begin

    a:=i mod 10;    {   выделение    }

   b:=(i div 10) mod 10;   {  цифр   }

   c:=i div 100;                   

  s:=a*a*a+b*b*b+c*c*c; {выч. суммы}

 if (s=i) then writeln(i); {сравнение }

     end;

    readln;

 end.

// Program A2.9;

#include <iostream>

using namespace std;

int main()

{  int i,a,b,c,s;

    for (i=100;i<1000;i++)

    {  a=i%10;

        b=(i/10)%10;

        c=i/100;

        s=a*a*a+b*b*b+c*c*c;

        if (s==i) cout<<i<<endl;

    }

   return 0;

}