clc
format compact
for x1=0:1
    for x2=0:1
        for x3=0:1
            for x4=0:1
                if x1^2==x1 & ...
                   x2^2==x2 & ...
                   x3^2==x3 & ...
                   x4^2==x4 & ...
                   x1^2==x1*x2*x3*x4
                disp([x1,x2,x3,x4]);
                end
            end
        end
    end
end

2Â¥: Originally posted by sogooda at 2012-03-25 21:26:47:
Ò»¹²¾Í4¸öÊý£¬Ã¿¸öÊý»¹¶¼Ö»ÄÜÈ¡0ºÍ1Á½ÖÖÇé¿ö£¬ÄǾÍÇî¾Ù·¨¾ÍÐÐÁË¡£
»»¾ä»°Ëµ£¬±à¸ö4ÖØÑ­»·£¬Ò»ÏÂ×ӾͳöÀ´ÁË¡£