Question

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

Answer 1

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

begin

 var s := ReadlnString;

 s[1::2].Println;

 s := ReadlnString;

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

end.