Длинный текст (ранее — тип данных "Поле MEMO") В предыдущих версиях Access тип данных "Поле MEMO" использовался для хранения больших объемов текста, а тип данных "Текстовый" — для хранения более коротких строк (до 255 символов).
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Приём;
ПЕР
слово1, слово2, слово3, слово4, слово5: РЯД 50 ИЗ ЗНАК;
сч: ЦЕЛ;
УКАЗ
СПИСАТЬ("информация", слово1);
ОТ сч := 2 ДО 6 ВЫП
слово2[сч - 2] := слово1[сч]
КОН;
слово2[5] := 0X;
слово3[0] := слово1[7];
слово3[1] := слово1[8];
слово3[2] := слово1[2];
слово3[3] := слово1[4];
слово3[4] := слово1[6];
слово3[5] := 0X;
слово4[0] := слово1[2];
слово4[1] := слово1[0];
слово4[2] := слово1[4];
слово4[3] := слово1[5];
слово4[4] := слово1[6];
слово4[5] := 0X;
Приём.Строка(слово5);
ОТ сч := 0 ДО ДЛИНА(слово5) - 1 ВЫП
ЕСЛИ слово5[сч] = "о" ТО слово5[сч] := "т"
КОН
КОН Задание.
Собирается-журналист опрашивает людей для статьи
обрабатывается-ученик решает задачу
упрощается-учитель объясняет материал
создается-все тот же журналист придумывает статью
запоминается-парнеь запоминает номер телефона девушки
измеряется-программист рассчитывает сколько бит займет программа
копируется-ученик списывает у одноклассника
передается-две девушки обмениваются новостями
принимается-ученики слушают учителя на уроке
разрушается-придуманная выше указанным журналистом статья опровергается...
делится на части-человек разбирает сообщение в котором пропущены пробелы
ищется-человек ищет материал для доклада в интернете
Var a, b:integer;
begin
writeln ('Введите стороны a и b');
writeln ('Введите сторону a');
readln (a);
writeln ('Введите сторону b');
readln (b);
writeln;
writeln ('Периметр = ', (a+b)*2);
writeln ('Площадь = ', a*b);
readln;
end.
1) По формуле Шеннона 2^i=n найдём i=5 т.е. сообщение о каждом ученике кодируется пятью битами.
Ответ: 5
2) По той же формуле. i=4, значит 2^4=16.
Ответ: 16
3) n=80 - о десяти файлах. Значит, информация об одном - 8бит. 2^8=256 файлов
Ответ: 256
4)2^i=128
i=7
140/7=20
Ответ: 20
5) Всего 4*16=64 возможных исходов. 2^i=64 i=6
Ответ:6