begin
ReadlnString.MatchValues('[Нн]е').Count.Println
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018
Внимание! Если программа не работает, обновите версию!
begin
ReadlnString.MatchValues('[Нн]е').Count.Println
end.