Срочно Информатика, много баллов! Pascal ABC1) С клавиатуры вводится символьная строка....

Question

Срочно Информатика, много баллов! Pascal ABC1) С клавиатуры вводится символьная строка. Определите, сколько раз встречается в строке каждый из входящих в нее символов. 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.

Объяснение:

Comments

не подойдёт, я в 10 классе. давай меняй и тогда дам лучший ответ

---

это ещё сложнее можно без char и readinteger всяких обойтись

---

Нихрена себе, "давай меняй". Братан, путаешь. Тебе бесплатно домашку решают, а ты хамишь в ответ. Не устраивает то, что делают тебе бесплатно другие - делай сам. Логично?