1. Посчитайте количество букв, соответствующих гласным звукам ("а", "я", …), в абзаце из...

0 голосов
40 просмотров

1. Посчитайте количество букв, соответствующих гласным звукам ("а", "я", …), в абзаце из книги Л.Н. Толстого “Война и мир”.

Молодая княгиня Болконская приехала с работой в шитом золотом бархатном мешке. Ее хорошенькая, с чуть черневшимися усиками верхняя губка была коротка по зубам, но тем милее она открывалась и тем еще милее вытягивалась иногда и опускалась на нижнюю. Как это бывает у вполне привлекательных женщин, недостаток ее — короткость губы и полуоткрытый рот — казались ее особенною, собственно ее красотой. Всем было весело смотреть на эту полную здоровья и живости хорошенькую будущую мать, так легко переносившую свое положение. Старикам и скучающим, мрачным молодым людям казалось, что они сами делаются похожи на нее, побыв и поговорив несколько времени с ней. Кто говорил с ней и видел при каждом слове ее светлую улыбочку и блестящие белые зубы, которые виднелись беспрестанно, тот думал, что он особенно нынче любезен. И это думал каждый.


Информатика (234 баллов) | 40 просмотров
0

А причем тут информатика?

0

притом

Дан 1 ответ
0 голосов
Правильный ответ

// 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)


(142k баллов)
0

спасибо, а здесь именно буквы или звуки?

0

всё, понял.

0

Буквы. Откуда компьютерной программе знать, в каких случаях какие звуки порождает та или иная буква?