Обозначим искомое количество килобайт как Х.
100 Кб:1536 бит = Х Кб:768 бит.
Х = (100*768):1536 = 50.
Ответ: 50 Кб.
Program zadanie;
var a,b:real;
beginreadln(a,b);
if (a > b) then b := sqr(a)else if(a < b) then b:=sqrt(a);
writeln(b);
readln;
<span>end.</span>
V=4096 бит/с; t=10 с; I=40960 бит
40960 бит/5120 симв. = 8 бит/симв, т.е. 1 симв. =8 бит, значит мощность алфавита = 2 в 8 степени, т.е. 256
Ответ:256 символов
Const n=14;
var
a,b,c: array[1..n] of integer;
i: byte;
begin
randomize;
for i:=1 to n do begin;
a[i]:=random(-10,10);
b[i]:=random(-10,10);
end;
println (a);
writeln;
println (b);
writeln;
for i:=1 to n do begin;
c[i]:=a[i]*b[n+1-i];
end;
println (c);
end.
---------------------------------
Пример:
9 10 -10 6 3 -4 -3 6 4 -9 6 -9 2 -10
-3 -10 9 -4 8 -9 -6 -1 -9 6 6 -10 0 -9
-81 0 100 36 18 36 3 -36 -36 -72 -24 -81 -20 30
<span>свехру в программе есть книпка с изображением бинокля. Если ее нажать то, на экране откроется окно, в этом окне от вас требуется ввести слово которое вы хотите найти в документе и нажать "поиск". Когда программа найдет слово в документе, она выделит его цветом.</span>