. Соотнесите номер кнопки с ее названием: 1) а) цвет текста 2) б) подчеркнутый 3) в) шрифт 4) г) цвет выделения текста 5) д) курсив 6) е) размер шрифта 7) ж) полужирный

1-в

2-е

3-г

4-а

5-ж

6-д

7-б

Объяснение:

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так