Question

Срочно Информатика, много баллов!
Pascal ABC
1) С клавиатуры вводится символьная строка. Определите, сколько раз встречается в

строке каждый из входящих в нее символов.

2) С клавиатуры вводится предложение, в котором слова разделены пробелами.

Определите, сколько слов в этом предложении начинается и заканчивается на одну и ту

же бук
(ВНИМАНИЕ! НЕ НАДО ИСПОЛЬЗОВАТЬ ТАКИЕ ФУНКЦИИ КАК chr, ord,include!)​

Answer 1

Ответ:

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.

Объяснение: