Информатика, много ! Pascal ABC1) С клавиатуры вводится символьная строка. Определите, сколько раз встречается в строке каждый из входящих в нее символов. 2) С клавиатуры вводится предложение, в котором слова разделены пробелами. Определите, сколько слов в этом предложении начинается и заканчивается на одну и ту же бук(ВНИМАНИЕ! НЕ НАДО ИСПОЛЬЗОВАТЬ ТАКИЕ ФУНКЦИИ КАК chr, ord, include!)​

PascalABC.NET 3.6.2

1)

begin

 var a := ReadString();

 var chars := a.ToCharArray.Distinct;

 chars.ForEach(p -> Println($'sym {p}, Count of symbol: {a.Count(x -> x = p)}'));

end.

2)

begin

 var sent := ReadString().Split(' ');

 sent.Where(p -> p.Endswith(p[1])).Count.Println; //2020 год. Строки в Паскаль до сих пор нумеруются с 1.

end.

Объяснение:

1                                   ЧАСТИ РЕЧИ

Существительные -                                       Глаголы -

письмо                                                            съел

мальчик                                                           вьет

семья

тетрадь

подъем

2                                           РАЗДЕЛИТЕЛЬНЫЙ Ъ И Ь ЗНАКИ

ь                                                             ъ

Письмо                                                   Съел

Мальчик                                                  Подъем

Вьет

Семья

Тетрадь

Из Cообщение "мальчик с тёмными волосами" содержит 2 бита 
следует:
2^2 =4 (количество мальчиков с тёмными волосами)
Из   Сообщение "девочка с тём волосами"  - 3 бита   следует:
2^3 = 8 (количество дев с тём волосами)
8 +4 =12 (количество детей с тёмными волосами)
Вероятность того, что будет выбран ученик с тёмными волосами:
p(т) =12/32=3/8
вероятность выбора рыжих в три раза меньше: р(рыж) =р(т)/3=1/8
>   8 =2^3  >  3 бита содержит сообщение, что будет выбран рыжий ученик, но тк рыжих мальчиков вообще НЕТ, то это относится только к рыжим девочкам.
       ОТВЕТ   3 бита.