Внекоторой кодировке для кодирования одного символа используется 1 байт. на сколько надо увеличить количество информации, используемое для кодирования одного символа, чтобы количество возможных символов в кодировке возросло в 4 раза?
В одном байте - 8 бит, следовательно 2^8=256(это количество символов в данной кодировке), нам надо увеличить количество символов, следовательно 256*4= 1024, следовательно нам надо увеличить кол-во информации на 2 бита (2^10=1024)
Const nx =50; var z:array[1..nx] of integer; i,j,n,m,d,s,s1,k:integer; sr:real; begin write ('Введите число элементов n');read(n); for i:= 1 to n do begin z[i]:= random(30)-5; write(z[i]:3); if z[i]=0 then m:=i;end;writeln; if m > 0 then begin for j:=1 to n do begin if (j< m) and (z[j] mod 2 = 0) then s:= s + z[j]; if (j> m) and (z[j] mod 2 = 1) then begin s1:= s1 + z[j]; k:= k +1; end;end;end else begin writeln; for i:=1 to n do begin for j:=2 to n do begin if z[j] > z[j-1] then begind:=z[j-1]; z[j-1]:=z[j]; z[j]:= d;end;end; end;end;writeln; sr:= s1 /k; if m > 0 then begin writeln('сумму нечетных чисел от последнего нулевого значения до Z[N]', s:6); write('среднее арифметическое четных чисел, находящихся в массиве до последнего нуля ', sr:6:3); end else for j:=1 to n do write(z[j]:3);end.
Var a,r:real; begin Write('Введите a и n: '); Read(a,r); if a=2*r then Writeln('Квадрат описан около окружности') else Writeln('Квадрат не описан около окружности') end.
var n:char; cm:string; begin Write('Введите натуральное двухзначное число: '); Readln(cm); Write('Введите цифру от 0 до 9: '); Readln(n); if pos('3',cm)>0 then Writeln('В числе есть цифра 3') else Writeln('В числе нет цифры 3'); if (pos('6',cm)>0) or (pos('7',cm)>0) or (pos('9',cm)>0) then Writeln('В числе есть цифра 6,7 или 9') else Writeln('В числе нет цифры 6,7 или 9'); if pos(n,cm)>0 then Writeln('В числе есть цифра ',n) else Writeln('В числе нет цифры ',n) end.
