Во В какой кодовой таблице можно закодировать 65 536 различных символов?
Варианты ответов
Unicode
СР1251
КОИ–8
ASCII
Во В одной из кодировок Unicode на каждый символ отводится 2 байта. Определите в этой кодировке информационный объём следующей пословицы:
Где родился, там и сгодился.
В ответе укажите только число байт.
Во В кодировке КОИ-8 каждый символ кодируется 8 битами. Определите информационный объём сообщения в этой кодировке, если длина текста 16 символов.
Варианты ответов
16 бит
128 байтов
160 битов
16 байт
Во Сколько символов содержит текст, записанный в 8-битном коде, информационный объём которого равен 0,5 Кбайт?
Во Известен десятичный код (номер) некоторого символа - 102. Определите, какой это символ: управляющий или изображаемый.
Варианты ответов
управляющий
изображаемый
Во В соответствии с кодовой таблицей ASCII все латинские буквы могут быть закодированы десятичными числами. Словосочетание «I COME» кодируется как 733267797769. Какая числовая последовательность кодирует словосочетание «I CAME»?
Варианты ответов
739567797769
733265797769
733267657769
Во Укажите ложные высказывания.
Варианты ответов
Латинские буквы в кодовых таблицах КОИ-8 и Windows расположены в лексикографическом порядке и имеют одинаковые коды.
Русские буквы в кодовых таблицах КОИ-8 и Windows имеют различные коды.
Русские буквы в кодовых таблицах КОИ-8 и Windows расположены в лексикографическом порядке.
Цифры и знаки препинания в кодовых таблицах КОИ-8 и Windows имеют различные коды.
Во В одной из кодировок Unicode на каждый символ отводится 2 байта. Определите информационный объем текста из 48 символов в этой кодировке.
В ответе укажите только число бит.
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
program pr1;
uses
crt;
const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);
type
arr2 = array of integer;
var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;
begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;
writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.