1) <span>F(n) = (8-2)*(8-1)+2 =44
2) </span><span>F(w) = 5*F(w-l)- 4*F(w-2) при w > 2.
</span><span>F(w) = 5*(15-l)- 4*(15-2) = 5*14*13 = 910
</span>
1) узнаем скорость соединения
1,25Кбайт=1,25*1024байт=1280байт
1280/128=10 байт\с
2) узнаем время
250\10=25 с
Ответ 25 секунд
2
function looking (s1:string; s2:string):integer
j:integer;
begin
for j:=1 to length(s2) do
begin
if pos (copy(s2, j, 1), s1)>0 then
return pos (copy(s2, j, 1), s1);
end;
return 0;
end;
Var
i: Integer; // рабочая переменная для for
k: Integer; // количество минимальных элементов
n: Integer; // размер массива m : array [1..10] of Integer; // Собственно сам массив из "n" элементов
i_min : Integer; // Индекс минимального элемента в массиве
begin
n:=10; k := 0; i_min := 1;
for i := 1 to n do
begin
m[i] := Random(10); // 10 - Число от балды
if (m[i]<m[i_min]) then
begin
k := 1;
i_min := i
end
else
if (m[i]=m[i_min]) then
inc(k);
end;
// В переменной "k" - находится количество минимальных элементов
<span>end;</span>