Pascal: 1) Ввести текст. Вывести каждый второй символ. 2) Ввести текст. Определить...

Question

Pascal: 1) Ввести текст. Вывести каждый второй символ. 2) Ввести текст. Определить сколько раз в нем встречается буква “а”.

Answer 1

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

begin

 var s := ReadlnString;

 s[1::2].Println;

 s := ReadlnString;

 s.Count(c -> c = 'а').Print

end.

---