var
a:array[1..9]of integer;
b,c,d,e:integer;
f:text;
function summa(k,l,m,n:integer):boolean;
begin
summa:=(a[k]+a[l]+a[m]+a[n])=2;
end;
begin
assign(f,'text.txt');
rewrite(f);
b:=0;
e:=0;
repeat
for c:=1 to 9 do a[c]:=0;
c:=b;
d:=1;
while c>0 do
begin
a[d]:=c mod 2;
c:=c div 2;
inc(d);
end;
if summa(1,2,4,5) and
summa(2,3,5,6) and
summa(4,5,7,8) and
summa(5,6,8,9) then
begin
inc(e);
writeln(f,e);
writeln(f,a[1],a[2],a[3]);
writeln(f,a[4],a[5],a[6]);
writeln(f,a[7],a[8],a[9]);
end;
inc(b);
until b>511;
writeln(f,'Result:',e);
writeln('Result:',e);
readln;
end.
1:
000
111
000
2:
100
011
100
3:
010
010
010
4:
101
010
010
5:
010
101
010
6:
101
101
010
7:
110
001
110
8:
001
110
001
9:
010
010
101
10:
101
010
101
11:
010
101
101
12:
101
101
101
13:
011
100
011
14:
111
000
111
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.