VB.
Dim i As Integer
Dim summ As Integer
Dim simv As String
simv = "бвгджзклмнпрстфхцчшщ"
Dim n As String
n=InputBox ("Введите строку")
For i = 1 To Len(n)
If InStr(simv, Mid(CStr(n), i, 1)) > 0 Then summ += 1
Next<span>
</span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535</span><span>
MsgBox("Всего согласных в строке " & summ & ", что является " & Len(n) & "/" & summ & "=" & Len(n) / summ & " долей")</span>
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');
var a := MatrGen(m, n, (i, j)-> j.IsOdd ? 1 : 0);
a.Println(2)
end.
var a,i,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to 16 do
begin
a:=random(36)-16;
write(a,' ');
if a<0 then
begin k:=k+1; s:=s+a; end;
end;
writeln;
if k=0 then writeln('Нет отрицательных')
else writeln('k = ',k,' s = ',s,' sr = ',s/k:5:3);
end.
Пример:
-8 17 -1 -8 11 8 -5 7 8 -4 4 5 10 -16 12 4
k = 6 s = -42 sr = -7.000
Начало:1.подойти к телефону,2.поднять трубку телефона,3.набрать номер друга,4.подождать пока друг поднимет трубку,5.поговорить с другом,6.поставить трубку на место,7.отойти от телефона. конец
(о - оруженосец, р - рыцарь) 1о отвозит 1р на берег, возвращается и уезжает с 2о, который потом возвращается и привозит 2р, едет за 3о, высаживают 2о и 3о едет за 3р