Будь ласка напишіть код до програми: Створіть програму в DartPad, в якій створіть три змінних, для вашого прізвища, імені та віку (в роках). Виведіть на екран за таким зразком:
Моє прізвище Петренко Мене звати Анна Мені 13 років
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
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