Определить, сколько различных символов встречается в тексте - PascalABC.NET
Формулировка задачи:
Составьте программу, определяющую, сколько различных символов встречается в тексте.
Решение задачи: «Определить, сколько различных символов встречается в тексте»
textual
Листинг программы
begin
var s := ReadLnString('Введите текст: ');
writeln(s.ToCharArray().Distinct().Count());
end.
Объяснение кода листинга программы
- Вводится строка с помощью функции ReadLnString.
- Результат выводится на экран с помощью функции writeln.
- Для получения количества уникальных символов используется метод Distinct, который возвращает уникальные элементы массива.
- Для подсчета количества уникальных элементов используется метод Count.