1.Выберите два подхода к измерению информации.. 1)алфавитный 2)математический
3)вероятностный
4)числовой
2. Информационный вес символа двоичного алфавита определяют как единицу информации и называют
1)1 Бит
2)1Байт
3)1Кб
4)1 Мб
3. Количество информации i, которое несет один символ (информационный вес одного символа алфавита) в тексте, и мощность алфавита N связаны формулой Хартли:
1)2*i = N
2)2^i=N
3)2/i=N
4. Выберите правильный ответ
1)2 Мбайта = 2048 Кбайт.
2)16 бит =4 байтам.
3)4 байта = 36 битам.
4)8 Кбайта =8000 байтам.
6.Укажите функцию процессора..
1)передача информации 2)обработка информации
3)ввод информации
4)хранение информации
7.Эффективность работы компьютерной сети определяются следующими параметрами
1)ценность
2)пропускная
3)надежность 4)разрядность
var
n, i, x, s : integer;
t: string;
begin
writeln('количество чисел');
readln(n);
s := 0;
for i := 1 to n do
begin
writeln(i,' число:');
readln(x);
if (x > 9) and (x<100)) then
begin
t := IntToStr(x);
if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1;
end;
end;
writeln('ответ ',s)
end.
вариант решения, если элементы заданы массивом
const
n=50
var
i, x, s : integer;
t: string;
m1: array [1..n] of integer;
begin
s := 0;
for i := 1 to n do
begin
x := m1[i];
if (x > 9) and (x<100)) then
begin
t := IntToStr(x);
if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3')) then s := s+1;
end;
end;
writeln('ответ ',s)
end.