Пётр - 2 знака в сек.
Михаил - 660 знаков/300 сек = 2,2 знака
Иван - 180 знаков /60 сек = 3 знака
Сергей - 30/15 = 2 знака или (30*4)/(15*3)=2
Ответ: 3) Сергей и Пётр
Var s: string;
<span> n,k: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> n:=pos(' ',s);
</span><span> if n>0 then
</span><span> begin
</span><span> writeln('первая буква второго слова: ',s[n+1]);
</span><span> writeln('последняя буква: ',s[length(s)]);
</span><span> writeln('количество букв: ',length(s)-n);
</span><span> k:=0;
</span><span> for n:=1 to length(s) do
</span><span> if s[n]='a' then k:=k+1;
</span><span> if k>0 then writeln('количество букв a: ',k)
</span><span> else writeln('в строке нет буквы a');
</span><span> end
</span><span> else writeln('в строке одно слово');
</span><span>end.
</span><span>
</span>
Ответ:
2,0,334
Объяснение:
Задаем две пользовательские функции в VBA
Function newstr(str As String, n As Integer) As String
Dim i As Integer
For i = 1 To n
str = Replace(str, "a", "ab")
str = Replace(str, "bb", "c")
Next
newstr = str
End Function
Function chrcount(str1 As String, str2 As String) As Integer
Dim str() As String
str = Split(str1, str2)
chrcount = UBound(str, 1)
End Function
В ячейках рабочего листа вставляем формулы.
Для вычисления числа символов "a":
=chrcount(newstr("abab";333);"a")
Для вычисления числа символов "b":
=chrcount(newstr("abab";333);"b")
Для вычисления числа символов "c":
=chrcount(newstr("abab";333);"c")
Получаем следующий результат:
a,b,c
2,0,334
1 - Это видео карта
2- cd dvd привод
3- материнская плата
4 - жесткий диск
Ответ: 3
5 символов в распоряжении
По формули хартли
N=2^i
5<2^3
I=3
Это столько бит весит 1 символ.
3*15= 45 бит на пароль, но нудно в байтах ,
=6 байт на пароль(8бит-1 байт)
6*30 паролей=180
Ответ : 180