Ответы
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
Range(1,s.Length,2).Select(i->s[i]).Where(c->LowCase(c)='н').PrintLines
end.
Пример
Нелли нечаянно надорвала наволочку и Нестор немного нахмурился
Н
н
н
н
н
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
Range(1,s.Length,2).Select(i->s[i]).Where(c->LowCase(c)='н').PrintLines
end.
Пример
Нелли нечаянно надорвала наволочку и Нестор немного нахмурился
Н
н
н
н
н
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
9 лет назад
9 лет назад
10 лет назад
10 лет назад