Информатика, много !
Pascal ABC
1) С клавиатуры вводится символьная строка. Определите, сколько раз встречается в
строке каждый из входящих в нее символов.
2) С клавиатуры вводится предложение, в котором слова разделены пробелами.
Определите, сколько слов в этом предложении начинается и заканчивается на одну и ту
же бук
(ВНИМАНИЕ! НЕ НАДО ИСПОЛЬЗОВАТЬ ТАКИЕ ФУНКЦИИ КАК chr, ord,include!)
zeynab122
1
27.04.2020 19:38
4
Другие вопросы по теме Информатика
66666666ak
06.04.2019 16:26
favorit19971
16.06.2019 04:10
Mariecharlaii
21.12.2019 10:26
dinarashoeva
21.12.2019 10:19
kamilla021185
21.12.2019 10:18
gancedag05
21.12.2019 10:16
limon023
21.12.2019 10:15
ilmir123456789
15.12.2020 14:54
Artemko1337
15.12.2020 14:55
Популярные вопросы
- В треугольнике ABC B = B C = 11 см, перпендикулярном стене AB, пересекает...
1 - Какой процесс получил название модернизация?...
2 - Укажите правильную последовательность образования первых государств...
2 - Решите систему методом Крамера...
3 - Мен бос ауакытымды тиімді пайдаланамын тақырыбына әссе жазу. 80-100...
3 - Мен бос ауакытымды тиімді пайдаланамын тақырыбына әссе жазу. 80-100...
2 - 4-тапсырма. Жазылым Сан есімдерді қолдана отырып, қазақ тарихындағы...
2 - Даны точки (8;6) и (8;12). Найди координаты точек и , если известно,...
1 - тритоны с разрешением в си мажоре гармоническом и натуральном...
2 - Поставьте глаголы в Present Simple. предложения могут быть утвердительными(+)...
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.
Объяснение: