Программа для случая, когда в строке только "0", "1" и пробелы (т.е. проверки корректности ввода нет):
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,k,max:integer;
begin
if combobox1.Text<>'' then
begin
s:=combobox1.Text;
combobox1.Items.Insert(0,s);
s:=s+' ';
while pos(' ',s)>0 do delete(s,pos(' ',s),1);
k:=0; max:=0;
for i:=1 to length(s) do
if s[i]<>' '
then k:=k+1
else begin
if k>max then max:=k;
k:=0;
end;
label1.Caption:='Количество символов в самой длинной группе: '+inttostr(max);
end;
end;
10-8
а) 513=1001
б) 600=1130
в) 2010=3732
10-16
а) 513=201
б) 600=258
в) 2010=7DA
На самом деле правильного ответа нет, цвет страницы будет циановый (CYAN) так как в этом атрибуте первая пара шестнадцатеричных чисел обозначает интенсивность красного цвета, вторая - зеленого, третья - синего, следовательно цвет будет являться средним между синим и зеленым, хотя на вид он более близок к голубому. Также цвет будет светлым, т.к. RGB модель - аддитивная, то есть он значения зависит не только интенсивность, но и яркость (т.е. при #000000 цвет будет черным, а при #FFFFFF соответственно белым)
Var <имя_массива>: array [(мин_знач_индекса)..(макс_знач_индекса)] of тип_элементов;
Например:
var mas: array [1..10] of integer; - массив mas с 10 пронумерованными целочисленным значениями.
Мощность алфавита (N) связана с весом символа (i) по формуле N=2^i.
Следовательно:
N=128, значит i=7 (2^7=128)
Информационный объем V
сообщения равен произведению количеству
<span>K </span>
символов в сообщении на информационный
вес <span>i </span>
символа алфавита<span>
V = K * i</span>
Каждый символ будет весить i=7 бит
600 × 7 = 4200 бит = 525 байт