решить 10 класс информатика. Первый вариант только интересует

Это обычный дешифратор. С увеличением А появляется 0 на очередном Q. Все остальные Q =1 (потому, что Q с инверсией).

А0 А1 А2 Q0 Q1 Q2 Q3 Q4 Q5 Q6 Q7

0    0   0    0    1     1     1     1     1     1     1

1     0    0   1    0    1     1     1     1     1     1

0    1     0    1     1    0    1     1     1     1     1

1     1     0   1     1     1    0    1     1     1     1

0    0    1    1    1      1     1    0    1     1     1

1     0    1     1    1     1     1     1     0   1     1

0    1     1      1    1     1     1     1      1   0    1

1    1     1      1    1      1     1    1      1    1     0

Объяснение:

Рисовать здесь не умею, но думаю понятно.

// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
  Writeln(17*'_','.888888888.');
  Writeln(17*'_','88"P""T"T888_8o');
  Writeln(13*'_','o8o_8.8"8_88o."8o_8o');
  Writeln(12*'_','88_._o88o8_8_88."8_88P"o');
  Writeln(11*'_','88_o8_88_oo.8_8 88_8_888_88');
  Writeln(11*'_','88_88_88o888"_88"__o888_88');
  Writeln(11*'_','88."8o."T88P.88"._88888_88');
  Writeln(11*'_','888."888."88P".o8_8888_888');
  Writeln(11*'_','"888o"8888oo8888_o888_o8P"');
  Writeln(12*'_','"8888. ""888P"P.888".88P');
  Writeln(13*'_','"88888ooo__888P".o888');
  Writeln(15*'_','""8P"".oooooo8888P');
  Writeln(6*'_','.oo888ooo.____8friga888P8');
  Writeln('____o88888"888"88o.__"8888"".8f___.oo888o o..');
  Writeln('_____8f88"_"88_88888._______8r".o88888888" 888.');
  Writeln('_____"8r88o.""o_88"88o.____oi".888"888" 88_"88P');
  Writeln(6*'_','T8i8C.oo._"8."8"8___og"o888_o88"_" .=888"');
  Writeln(7*'_','88g88888o_"8_8_8__.a_.8"88_8"".o888 o8P');
  Writeln(8*'_','"8a88C.o8o__8_8__8"_8_o"_...o""" 8888');
  Writeln(10*'_','"88888888_"_8_.8__8___88888888888 "');
  Writeln(12*'_','"8888888o__.8o="_o8o..o(8oo88".');
  Writeln(16*'_','"888"_88"____88FRIGA88"".');
  Writeln(20*'_','o8P_______"888"""');
  Writeln(14*'_','...oo88');
  Writeln('_____"8oo...oo888""')
end.