Решение по информатике решите

что успел)

1d

2c

3в

4c

5a

6a

7d

8a

9b

операционная    система (оболочка)    windows    -    это    разработанная  фирмой    microsoft  надстройка    над    операционной    системой    dos  ,  обеспечивающая    большое    количество    возможностей    и    удобств    для  пользователей    и    программистов.широчайшее    распространение    windows  сделало    ее    фактическим    стандартом    для    ibm  pc    - совместимых  компьютеров. подавляющее    большинство пользователей    таких  компьютеров    работают    в      windows  ,    поэтому    практически    все    новые  программы      стали    разрабатываться    именно    для    эксплуатации    в    среде  windows.

//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию uses graphabc; const       kegl = 40; var       space, line: integer; procedure m(cx, cy: integer); begin       moveto(cx, cy);       lineto(cx, cy - kegl );       lineto(cx + kegl div 2, cy);       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy); end; procedure i(cx, cy: integer); begin       moveto(cx, cy - kegl);       lineto(cx, cy );       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy); end; procedure r(cx, cy: integer); begin       moveto(cx, cy);       lineto(cx, cy - kegl);       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy - kegl div 2);       lineto(cx, cy - kegl div 2); end; begin       space : = kegl div 2;             setwindowsize(4 * space + 3 * kegl, 4 * space + 3 * kegl );             line : = space + kegl;       m(space, line );       i(2 * space + kegl, line );       r(3 * space + 2 * kegl, line );             line : = 2 * space + 2 * kegl;       r(space, line );       i(2 * space + kegl, line );       m(3 * space + 2 * kegl, line );             line : = 3 * space + 3 * kegl;       m(space, line );       i(2 * space + kegl, line );       m(3 * space + 2 * kegl, line ); end.