Помогите плииз ...

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

Question

Информатика

Настюра

16 февраля, 04:20

Помогите плииз ...

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

+1

Ответы (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.

Помогите плииз ...Написать программу которая выводит на экран все подмножества множества:{1,2,3,4}

Помогите плииз ...

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