C :

#include<stdio.h>
main()
{
	int i,j,k,n;
	for(n = 100;n<1000;n++)
	{
		i = n/100;
		j = (n-i*100)/10;
		k = n%10;
		if(n == i*i*i+j*j*j+k*k*k)
			printf("%d\n",n);
	}
	return 0;
}

C++ :

#include<stdio.h>
int main()
{
	int a=100;
	int i,m,n,p;
	for(a=101;a<1000;a++)
	{
		m=a/100;
		n=(a-100*m)/10;
		p=a%10;
		i=m*m*m+n*n*n+p*p*p;
		if(i==a) printf("%d\n",a);
	}
	return 0;
}

Pascal :

var a,b,c,d:integer;begin
 
for a:=100 to 999 do
 
begin b:=a mod 10; c:=a mod 100 div 10; d:=a div 100;
 
if b*b*b+c*c*c+d*d*d=a then
 
writeln(a);
 
end;
 
end.