Посчитайте количество букв, подходящих гласным звукам ("а", "я", ), в абзаце
Посчитайте количество букв, соответствующих гласным звукам ("а", "я", ), в абзаце из книги Л.Н. Толстого Война и мир.
Молодая княгиня Болконская приехала с работой в шитом золотом бархатном мешке. Ее хорошая, с чуток черневшимися усиками верхняя губка была кратка по зубам, но тем милее она раскрывалась и тем еще милее вытягивалась время от времени и спускалась на нижнюю. Как это бывает у вполне симпатичных дам, недостаток ее короткость губы и полуоткрытый рот казались ее особенною, фактически ее красой. Всем было забавно глядеть на эту полную здоровья и живости хорошенькую будущую мама, так просто переносившую свое положение. Старикам и тоскующим, мрачным молодым людям казалось, что они сами делаются похожи на нее, побыв и поговорив несколько времени с ней. Кто говорил с ней и видел при каждом слове ее ясную улыбочку и блистающие белоснежные зубы, которые показывались постоянно, тот размышлял, что он необыкновенно ныне разлюбезен. И это думал каждый.
alf='АЕЁИОУЫЭЮЯаеёиоуыэюя';
var s:string;
i,j,k:integer;
begin;
s:='Молодая княгиня Болконская приехала с работой в шитом золотом бархатном мешке. Ее хорошенькая, с чуть черневшимися усиками верхняя губка была кратка по зубам, но тем милее она открывалась и тем еще милее вытягивалась время от времени и спускалась на нижнюю. Как это посещает у полностью симпатичных дам, недостаток ее короткость губки и полуоткрытый рот казались ее особенною, собственно ее красой. Всем было забавно глядеть на эту полную здоровья и живости хорошенькую будущую мама, так легко переносившую свое положение. Старикам и тоскующим, неясным юным людям казалось, что они сами делаются схожи на нее, побыв и поговорив несколько времени с ней. Кто разговаривал с ней и лицезрел при каждом слове ее ясную улыбочку и блистающие белоснежные зубы, которые показывались беспрестанно, тот думал, что он особенно ныне разлюбезен. И это мыслил каждый.';
for i:=1 to length(s) do
for j:=1 to length(alf) do
if s[i]=alf[j] then inc(k);
writeln(k);
end.
Ответ:303
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.