Строки (цепочки символов латинских букв) по следующему правилу. первая строка состоит из одного символа – латинской буквы «а». каждая из последующих цепочек создается такими действиями: дважды подрядзаписывается цепочка символов из предыдущей строки, а в конец приписывается буква, чей порядковый номер в алфавите соответствует номеру строки (на i-м шаге пишется «i»-я буква алфавита вот первые 4 строки, созданные по этому правилу: (1) a (2) aab (3) aabaabc ( 4) aabaabcaabaabcd латинский алфавит (для справки): abcdefghijklmnopqrstuvwxyz какой символ стоит в 7 строке на 64 месте?

(5)aabaabcaabaabcdaabaabcaabaabcde(6)aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdef(7)aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefg

 

на 64 месте: а

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var a: =matrgen(6,7,(i,j)-> sin(i+1)+cos(3*(j+;   a.println(10,6); writeln(70*'-');   var b: =a.elementswithindexes.where(t-> t[1].iseven and t[2].iseven)           .select(t-> t[0]).toarray;   b.println;   var m: =b.where(t-> t> 0).defaultifempty.average;   writeln('искомое среднее равно ',m);   var f: =openwrite('myfile.txt');   for var i: =0 to a.rowcount-1 do begin       for var j: =0 to a.colcount-1 do           write(f,a[i,j],' ');       writeln(f);       end;   writeln(f);   for var i: =0 to b.length-1 do write(f,b[i],' ');   f.close; end.

Uses drawman; begin field(13,5); topoint(3,4); pendown; onvector(-2,0); onvector(0,-3); onvector(2,0); penup; onvector(1,0); pendown; onvector(1,3); onvector(1,-3); penup; onvector(1,0); pendown; onvector(0,3); onvector(0,-3); onvector(1,0); onvector(0,3); onvector(0,-3); onvector(1,0); onvector(0,3); onvector(0,-3); penup; onvector(1,0); pendown; onvector(1,3); onvector(1,-3); penup; topoint(4,2); pendown; onvector(2,0); penup; topoint(10,2); pendown; onvector(2,0); penup end.