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
Sub Zadanie16087714() Const text = "Вскоре после маленькой княгини вошел массивный, толстый молодой человек с стриженою головой, в очках, светлых панталонах по тогдашней моде, с высоким жабо и в коричневом фраке. Этот толстый молодой человек был незаконный сын знаменитого екатерининского вельможи, графа Безухова, умиравшего теперь в Москве. Он нигде не служил еще, только что приехал из-за границы, где он воспитывался, и был первый раз в обществе. Анна Павловна приветствовала его поклоном, относящимся к людям самой низшей иерархии в ее салоне. Но, несмотря на это низшее по своему сорту приветствие, при виде вошедшего Пьера в лице Анны Павловны изобразилось беспокойство и страх, подобный тому, который выражается при виде чего-нибудь слишком огромного и несвойственного месту. Хотя действительно Пьер был несколько больше других мужчин в комнате, но этот страх мог относиться только к тому умному и вместе робкому, наблюдательному и естественному взгляду, отличавшему его от всех в этой гостиной. " k = 0
For i = 1 To Len(text) c = Mid(text, i, 1) If InStr(1, "аэоуыяеёюи", c, 1) > 0 Then k = k + 1 End If Next MsgBox (k) End Sub
1) 48576₁₀
2) 1,1011₁₆ = 0001.0001000000010001₂; 1,1011₈ = 001.001000001001₂; 1,1011₁₀ = 01.0001₂.
Объяснение:
1) 1011110111000000₂ = 2¹⁵*1 + 2¹⁴*0 + 2¹³*1 + 2¹²*1 + 2¹¹*1 + 2¹⁰*1 + 2⁹*0 + 2⁸*1 + 2⁷*1 + 2⁶*1 + 2⁵*0 + 2⁴*0 + 2³*0 + 2²*0 + 2¹*0 + 2⁰*0 = 32768 + 0 + 8192 + 4096 + 2048 + 1024 + 0 + 256 + 128 + 64 + 0 + 0 + 0 + 0 + 0 + 0 = 48576₁₀
2) 1,1011₁₆ = 0001.0001000000010001₂
1,1011₈ = 001.001000001001₂
1,1011₁₀ = 01.0001₂