1. Посчитайте количество букв, соответствующих гласным звукам ("а", "я", …), в абзаце из книги Л.Н. Толстого “Война и мир”. Молодая княгиня Болконская приехала с работой в шитом золотом бархатном мешке. Ее хорошенькая, с ...
1. Посчитайте количество букв, соответствующих гласным звукам ("а", "я", …), в абзаце из книги Л.Н. Толстого “Война и мир”.
Молодая княгиня Болконская приехала с работой в шитом золотом бархатном мешке. Ее хорошенькая, с чуть черневшимися усиками верхняя губка была коротка по зубам, но тем милее она открывалась и тем еще милее вытягивалась иногда и опускалась на нижнюю. Как это бывает у вполне привлекательных женщин, недостаток ее — короткость губы и полуоткрытый рот — казались ее особенною, собственно ее красотой. Всем было весело смотреть на эту полную здоровья и живости хорошенькую будущую мать, так легко переносившую свое положение. Старикам и скучающим, мрачным молодым людям казалось, что они сами делаются похожи на нее, побыв и поговорив несколько времени с ней. Кто говорил с ней и видел при каждом слове ее светлую улыбочку и блестящие белые зубы, которые виднелись беспрестанно, тот думал, что он особенно нынче любезен. И это думал каждый.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1088
begin
var s:=ReadLines('1.txt').ToArray;
var s1:=s[0].ToString;
var s2:string:='';
for var i:=1 to s1.Length do s2+=LowCase(s1[i]);
var s3:=s2.Where(x->x in ['а','е','и','о','у','ы','э','ю','я']);
var dic:=new Dictionary;
foreach var c in s3 do dic[c]:=dic.Get(c)+1;
dic.Print(NewLine);
end.
Результат выполнения программы (абзац в файле 1.txt)
(о,81)
(а,46)
(я,13)
(и,41)
(е,67)
(у,22)
(ы,18)
(ю,12)
(э,3)
Не нашли ответ?
Похожие вопросы