Спо информатике 9 класс (с решением, )

Const
 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

1. Создайте новый документ Word.2. Щелкните на горизонтальной линейке на отметке 2 см. На линейке появится значок табуляции.3. Щелкните на отметках 5,8 и 11 см, чтобы добавить еще три позиции табуляции.4. Нажмите клавишу Tab и введите цифру-1. Текстовый курсор перепрыгнет в текущей строке вправо на позицию 2 см, где и появится введенная цифра.5. Напечатайте цифры 2, 3 и 4, нажимая перед вводом каждой из них клавишу Tab.6. Нажмите клавишу Enter и введите еще четыре числа, предваряя каждое из них нажатием клавиши Tab. В документе появятся два столбца чисел, выравненных по размещенным ранее позициям табуляции, как показано на рис. 6.11.7. Выделите две строки с числами и перетащите значок табуляции с отметки 8 см на отметку 7 см. Третий столбец таблицы сместится влево вслед за значком табуляции.