В кодировке UTF - 32 каждый символ кодируется 32 битами. Арина написала текст (в нём нет лишних пробелов) "ОБЖ, технология, история, биология, физика, химия, информатика - школьные предметы"
Девочка вычеркнул из списка название одного из предметов. Заодно она вычеркнула ставшие лишними запятые и пробелы - 2 пробела не должны идти подряд.
При этом размер нового предложения в данной кодировке оказался на 40 байтов меньше, чем размер исходного предложения. Напишите в ответ вычеркнутое название школьного предмета ​

биология

Объяснение:

32 бит=4 байт(1 байте=8 бит)

40/4=10 символов

биология - 8 букв+,+пробел=10

10*4=40

Я не знаю сами делайте что угодно от

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.