Сколько байт в 1.38 килобайт ? сколько бит в 2.08 мегабайте ? информационный объём текста ,подготовленного с компьютера,равен 14.5 кб .сколько символов содержит этот текст?
Program Loto; Uses Crt; Const lt = 49; (* количество шаров в лототроне *) shar = 6; (* количество выигрышных шаров*) Var lott,vyb : array [1..shar] of integer; i, j, nom, k : integer; m:set of byte; Begin randomize; m:=[]; for i:=1 to shar do begin repeat nom:=1+random(lt); until not(nom in m); lott[i]:=nom; m:=m+[nom]; end; writeln('Выберите шаров от 1 до 6 ',lt); m:=[]; begin repeat write('nom',i,'='); readln(nom); until (nom in [1..lt])and not(nom in m); vyb[i]:=nom; m:=m+[nom]; end; clrscr; writeln('Номера шаров в лототроне'); for i:=1 to shar do write(lott[i]:3); writeln; writeln('Выбранные шары'); for i:=1 to shar do write(vyb[i]:3); writeln; write('Совпавшие шары: '); k:=0; for i:=1 to shar do for j:=1 to shar do if lott[i]=vyb[j] then begin k:=k+1; write(lott[i]:3); end; if k=0 then write('- нет') else write(' Их количество=',k) end.
var a: array[1..500] of integer; i, n, j: integer; temp: integer;
begin {ввод массива} if handsfree then n := random(500) + 1 else begin write('n = '); readln(n); end;
writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(100000); write(a[i], ' '); end else readln(a[i]); end; writeln();
{сортировочка пузыречком по убыванию} for i := 1 to n - 1 do for j := i + 1 to n do if A[i] < A[j] then begin temp := A[i]; A[i] := A[j]; A[j] := temp; end;
{вывод массива} writeln('Вывод массива:'); for i := 1 to n do write(a[i], ' '); writeln();
2) 2,08 * 1024 * 1024 * 8 = 17448304,64 => 17448305 бит (5 - т.к. бит это минимальная единица измерения кол-ва информации)
3) 14,5 * 1024 = 14848 байт.
ответ: в 8-ми битной кодировке 14848 символов,
а в 16-ти битной кодировке 7424 символов.