Срочно Информатика, много баллов!
Pascal ABC
1) С клавиатуры вводится символьная строка. Определите, сколько раз встречается в
строке каждый из входящих в нее символов.
2) С клавиатуры вводится предложение, в котором слова разделены пробелами.
Определите, сколько слов в этом предложении начинается и заканчивается на одну и ту
же бук
(ВНИМАНИЕ! НЕ НАДО ИСПОЛЬЗОВАТЬ ТАКИЕ ФУНКЦИИ КАК chr, ord,include!)
Pascal ABC
1) С клавиатуры вводится символьная строка. Определите, сколько раз встречается в
строке каждый из входящих в нее символов.
2) С клавиатуры вводится предложение, в котором слова разделены пробелами.
Определите, сколько слов в этом предложении начинается и заканчивается на одну и ту
же бук
(ВНИМАНИЕ! НЕ НАДО ИСПОЛЬЗОВАТЬ ТАКИЕ ФУНКЦИИ КАК chr, ord,include!)
More Questions From This User See All
Answers & Comments
Verified answer
Ответ:
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.
Объяснение: