Телескоп-что-бы изучать звёзды
микроскоп-что-бы изучать клетки
часы-для того чтобы всегда знать сколько времени
компьютер-для того чтобы обрабатывать информацию
2^3=8 ---> 3 бита для кодировки одного цвета
Всё изображение занимает объём памяти= 3*х,
где х - размер растрового изображения
Скорость передачи v=3x/30=x/10
после изменения кол-ва цветов их стало (3+y):
v=(3+y)*x/20; v - скорость передачи - величина постоянная
Уравнение:
(3+y)*x/20=x/10
(3+y)/2=1
(3+y)=2
y=-1
цветов стало:
3+у=3-1=2 бита для одного цвета, количество цветов =2^2=4 цвета
Было: 8 цветов
Стало 4 цвета для передачи изображения в Б
Var
n:integer;
S,x:real;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+Sin(n*x);
WriteLn('S = ',S)
End.
Всего объем сообщения 3кб = 3072 байт = 24576 бит
На кодирования одного символа ушло 24576 : 6144 = 4 бит/символ
С помощью 4 бит можно закодировать < 2^4 символов
Ответ: Символов меньше 16.
Под локальным максимумом, скорее всего, имеется в виду число, большее
чем оба его соседа, за исключением случая, когда соседом справа является
0. В таком случае достаточно однократно пройтись по всем числам, запоминая минимальное из расстояний между новым и предыдущим обнаруженными максимумами.
Программа (язык Pascal ABC.Net)
var i1,i2,i3:integer;
i:integer;
curr,minr,lastmax:integer;
begin
readln(i1,i2);
i:=2;
minr:=1000000;
repeat
readln(i3);
if (i2>i1) and (i2>i3) and (i3<>0) then begin
curr:=i-lastmax;
if curr<minr then minr:=curr;
lastmax:=i;
end;
i1:=i2;
i2:=i3;
i+=1;
until i2=0;
if minr=1000000 then writeln(0) else writeln(minr); {стоило бы добавить булевую переменную в качестве флага - был ли хоть один max, но вряд ли расстояние между ними превысит миллион :-}
end.
