Как нарисовать кирпичную стену в цикле и в черепахе - кумир !

Использовать черепаха алг нач цел а, б нц для а от 1 до 7 нц для б от 1 до 11 опустить хвост вправо(90) вперед(20) вправо(90) вперед(10) вправо(90) вперед(20) вправо(90) вперед(10) вправо(90) вперед(20) влево(90) поднять хвост кц назад(10) влево(90) вперед(220) вправо(90) кц кон

Давай разбираться. если бы квартира в доме была 1 = 2^0, то информация, что вася живет в этой квартире, имела бы 0 информации. потому что, если мы заранее знаем, что вася живет в этом доме, то сразу ясно, что в этой единственной квартире. дополнительное сообщение об этом не несет никакой информации вообще. если квартир 2 = 2^1, то сообщение несет 1 бит информации. 1 квартира = 0, 2 квартира = 1. если квартир 3, 2< 3< 4, то есть 2^1< 3< 2^2, то будет 2 бита. 1кв = 00, 2кв = 01, 3кв = 10. одного бита не хватает. и так далее. сколько квартир в доме (в смысле - 2 в какой степени), столько бит и будет. 128 < 150 < 256, то есть 2^7 < 150 < 2^8, поэтому уточнение номера квартиры дает 8 бит информации.

// pascalabc.net 3.2, сборка 1374 от 10.01.2017 // внимание! если программа не работает, обновите версию! procedure printarr(f: text; a: array of integer); begin   foreach var x in a do write(f,x,' ');   writeln(f) end; begin   var fin: =openread('input.txt');   var n: =readlninteger(fin);   var a: =new integer[n];   for var i: =0 to n-1 do read(fin,a[i]);   var fout: =openwrite('output.txt');   fin.close;   printarr(fout,a);   var b: =a.where(x-> x.iseven).toarray;   printarr(fout,b);   var c: =a.where(x-> x.isodd).toarray;   printarr(fout,c);   fout.close end.