Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Посчитайте количество букв, соответствующих гласным звукам ("а", "я", …), в абзаце из книги Л.Н. Толстого “Война и мир”.
Вскоре после маленькой княгини вошел массивный, толстый молодой человек с стриженою головой, в очках, светлых панталонах по тогдашней моде, с высоким жабо и в коричневом фраке. Этот толстый молодой человек был незаконный сын знаменитого екатерининского вельможи, графа Безухова, умиравшего теперь в Москве. Он нигде не служил еще, только что приехал из-за границы, где он воспитывался, и был первый раз в обществе. Анна Павловна приветствовала его поклоном, относящимся к людям самой низшей иерархии в ее салоне. Но, несмотря на это низшее по своему сорту приветствие, при виде вошедшего Пьера в лице Анны Павловны изобразилось беспокойство и страх, подобный тому, который выражается при виде чего-нибудь слишком огромного и несвойственного месту. Хотя действительно Пьер был несколько больше других мужчин в комнате, но этот страх мог относиться только к тому умному и вместе робкому, наблюдательному и естественному взгляду, отличавшему его от всех в этой гостиной.

Ответ оставил Гость

Количество гласных = 323
var ch:char;
    a:integer;
begin
a:=0;
while(ch<>=) do begin
read(ch);
if (ch=а) or (ch=у) or (ch=е) or (ch=ы) or (ch=о) or (ch=э) or (ch=я) or (ch=и) or (ch=ю) or (ch=И) or (ch=Ю) or (ch=А) or (ch=У) or (ch=Е) or (ch=О) or (ch=Э) or (ch=Я)
then a:=a+1;
end;writeln(количество гласных = ,a);
end.