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
// PascalABC.NET 3.0, сборка 1128 function Sum(a:array of real):real; begin Result:=0; foreach var x in a do if x>10 then Result+=x end;
procedure Half(a:array of real); begin var s:=Sum(a)/2; for var i:=0 to a.Length-1 do a[i]/=s end;
procedure PrintRealArray(a:array of real); begin foreach var x in a do Write(x:0:3,' '); Writeln end;
begin var n:=ReadInteger('Количество элементов массива:'); var P:=ArrRandomReal(n,0,20); Writeln('Исходный массив'); PrintRealArray(P); Half(P); Writeln('Результирующий массив'); PrintRealArray(P) end.
ответ: с = 10