Помогите плииз..Написать программу которая выводит на экран все подмножества множества:{1,2,3,4}
Помогите плииз..
Написать программу которая выводит на экран все подмножества множества:{1,2,3,4}
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы