Сравните, чего больше: А) Графических редакторов или прикладных программ?
Б) Антивирусных программ или системных программ?
В) Отладчиков или языков программирования?

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.

пщояк 17 27 16 33 17

нщёп 15 27 7 17

бухгалтерия, документооборот.

1)7-5=2 уч.-имеют две "3" по и по . 2)17-4-5-2=6 уч.-имеют две "3" по и по . 3)22-5-2-11=4 уч.-имеют две "3" по и по . 4)40-22-4-6-4=4 уч.-учатся без "3". 5)6+2+4=12 уч.-имеют "3" по двум предметам из трёх.