Напишите программу которая выводит ** экран все подмножества множества {1, 2, 3, 4}

Question

Напишите программу которая выводит на экран все подмножества множества {1, 2, 3, 4}

Answer 1

Var    
 a,b,c,d : integer;  
Begin   
   for a:=1 to 4 do    
    for b:=a+1 to 4 do        
     for c:=b+1 to 4 do    
      for d:=c+1 to 4 do         
       writeln(a:3,b:3,c:3,d:3);
     for a:=1 to 4 do
       for b:=a+1 to 4 do 
        for c:=b+1 to 4 do 
          writeln(a:3,b:3,c:3);
     for a:=1 to 4 do
       for b:=a+1 to 4 do 
        writeln(a:3,b:3);
     for a:=1 to 4 do
       writeln(a:3); 
    readln;
   End.