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

Question

Информатика

Еммануил

6 августа, 19:08

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

+2

Ответы (1)

Знаете ответ на вопрос?

Олег · 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.