с заданием, которое знаете, это задание по информатике за 9 класс

1)
А10=252
А2=11111100
Решение:
252/2 =126      остаток 0
126/2 =63        остаток 0
63/2  =31         остаток 1
31/2  =15          остаток 1
15/2  =7            остаток 1
7/2=3                остаток 1
3/2 = 1              остаток 1
1/2  =0              остаток 1
Записываем ответ снизу вверх:
А2=11111100
2)
А10=252
А8=374
Решение:
252/8 =31         остаток 4
31/8  =3            остаток 7
3/8    =0            остаток 3
Записываем ответ снизу вверх:
А8=374
3)
А10=252
А16=FC
F=15  C=12
Решение:
252/16 = 15        остаток 12(С)
15/16  = 0            остаток 15(F)
Записываем ответ снизу вверх:
А16=FC

 

Sub Zadanie16087714()
    Const text = "Вскоре после маленькой княгини вошел массивный, толстый молодой человек с стриженою головой, в очках, светлых панталонах по тогдашней моде, с высоким жабо и в коричневом фраке. Этот толстый молодой человек был незаконный сын знаменитого екатерининского вельможи, графа Безухова, умиравшего теперь в Москве. Он нигде не служил еще, только что приехал из-за границы, где он воспитывался, и был первый раз в обществе. Анна Павловна приветствовала его поклоном, относящимся к людям самой низшей иерархии в ее салоне. Но, несмотря на это низшее по своему сорту приветствие, при виде вошедшего Пьера в лице Анны Павловны изобразилось беспокойство и страх, подобный тому, который выражается при виде чего-нибудь слишком огромного и несвойственного месту. Хотя действительно Пьер был несколько больше других мужчин в комнате, но этот страх мог относиться только к тому умному и вместе робкому, наблюдательному и естественному взгляду, отличавшему его от всех в этой гостиной. "
    k = 0

    for i = 1 to Len(text)
        c = LCase(Mid(text, i, 1))
        If c="а" or c="е" or c="о" or c="у" or c="и" or c="я" or c="ё" or c="ю" or c="э" or c="ы" Then
            k = k + 1
        End If
    next
    MsgBox (k)
End Sub

Call Zadanie16087714()

ответ 323. Правильно?
Код написан на VBScript