Промежуток времени определяется как сумма
1. времени получения Васей первых 512 Кбайт по каналу со скоростью 2^17 бит/с
2. времени получения Петей всех данных (4 Мбайта) по каналу со скоростью 2^15 бит/с
При вычислениях необходимо привести все единицы измерения в одну систему (например, Кбайт и Мбайт в биты)
1. t1=512*1024*8/2^17=(2^9)*(2^10)*8/(2^17)=4*8=32 сек
2. t2=4*1024*1024*8/2^15=4*(2^10)*(2^10)*8/(2^15)=4*32*8=1024 сек
Ответ: 1024+32=1056 сек
Ответ:
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
Для случайных чисел:
var
a: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
a[i] := random(100);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
Для ручного заполнения:
var
a: array[1..5] of integer;
i: integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
Program pr;
uses crt;
Var a, b, p, s:real;
Begin
Writeln('Введите сторону a');
readln(a);
Writeln('Введите сторону b');
readln(b);
s:=a*b;
p:=2*(a+b);
Writeln('Площадь = ', s);
Writeln('Периметр = ', p);
readln;
<span>end.</span>
2112(3) = 2*3^3 + 1*3^2 + 1*3^1 +2*3^0 = 2*27 + 9 + 3 + 2 = 68(10)