Из строки 0110 видно, что b стоит в 1 столбце (из-за первой скобки)
из строки 0010 видно, что c стоит в 3 столбце (из-за второй скобки)
остаётся a, она стоит во втором столбце
Ответ: bac
Var stkv,rkr:real;
begin
writeln('Введите сторону квадрата');
readln(stkv);
writeln('Введите радиус круга');
readln(rkr);
if rkr<stkv/2 then write('входит') else write('не входит')
<span>end.</span>
<span>мини-сочинение (половина страницы или одна страница) на одну из тем :1-Какой способ создания текста-компьютерный или рукописный-вамнравится больше? 2-Одно из значений слова "редактор"-лицо,исправляющее рукопись.Объясните ,почему компьютерные программы для создания текстов назвали текстовыми Редакторами?</span><span>
</span>
Const mas : Array [0..6,0..8] Of String = (('Иванов Иван Иванович ', '1', '2', '3', '1', '5','3', '3', '2'), ('Петров Петр Петрович ', '5', '5', '5', '4', '5','5', '5', '5'), ('Сидаров Сидор Сидорович ', '3', '2', '3', '2', '2','2', '2', '1'), ('Алексеев Алексей Алексеевич ', '1', '2', '1', '1', '2','2', '2', '5'), ('Сергеев Сергей Сергеевич ', '2', '2', '5', '5', '5','5', '2', '3'), ('Степанов Степан Степанович ', '5', '5', '5', '4', '5','5', '5', '5'), ('Давыдов Давид Давидович ', '3', '3', '3', '3', '3','3', '3', '3')); var sr:real; // средний балл b:real;begin writeln('--------------------------------------------------------------------'); writeln('| ФИО |',' 1 |',' 2 |',' 3 |',' 4 |',' 5 |',' 6 |',' 7 |',' 8 |',' ср. |'); writeln('--------------------------------------------------------------------'); for var i:=0 to 6 do begin write('|'+mas[i,0]+'|'); sr:=0; for var j:=1 to 8 do begin write(' '+mas[i,j]+' |'); double.TryParse(mas[i,j],b); // строку в число sr:=sr+b; end; sr:=sr/8; write(sr:5:3); write('|'); writeln; end; writeln('--------------------------------------------------------------------'); end.