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

114

464

Посмотреть ответы 2

Ответы на вопрос:

русскийязык149

Информатика

4,5(82 оценок)

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.

слизеринсязмейка

Информатика

4,8(42 оценок)

Var a,b,c,d,e: longint; begin readln(a); readln(c); d: =d+a mod 10; d: =d+a div 10 mod 10; d: =d+a div 100 mod 10; if d mod c = 0 then writeln('yes') else writeln('no'); end.