Question

Составьте программу, которая определит сколько раз в тексте встречается заданная буква (на Паскаль)

Answer 1

===== PascalABC.NET =====

begin

 var s := ReadlnString('Введи текст:');

 var c := ReadlnChar('Какую букву ищем?');

 Println('Она встретилась', s.Where(p -> p = c).Count, 'раз')

end.