А) 20*0,6 = 12мб. (после сжатия).
12мб = 12 * 2^23 бит.
Теперь находим время на передачу.
12 * 2^23 бит/2^20 = 12 * 8 = 96.
96 + 10 + 2 = 108.
Б) 20мб = 20 * 2^23 бит.
20 * 2^23/2^20 = 20 * 8 = 160.
160 - 108 = 52.
Ответ: А52.
Ответ:
Должна быть не маленькая англ. буква l, а большая англ. буква I
Объяснение:
Const n=20;
var a:array[1..n] of integer;
i,k,m:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
k:=0; m:=0;
for i:=1 to n-1 do
begin
if a[i+1]>a[i] then begin m:=m+1; end
else begin if m>0 then k:=k+1; m:=0; end;
end;
if m>0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Массив A:
7 30 22 0 17 4 2 32 39 26 23 41 1 38 47 21 38 31 43 7
k = 7
begin
var a, b: integer;
repeat
(a, b) := ReadInteger2('введите a и b в одной строке через пробел:');
if a >= b then Println('a должно быть меньше b');
until a < b;
Randomize;
loop 5 do
Print(Random(a, b))
end.
B) output the contents of the curent directory.........