1)Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 20 строк, в каждой строке 16 символов. Определите информационный объём статьи в Кбайтах в кодировке Windows-1251, в которой каждый символ кодируется 8 битами. В ответе запишите только число, единицу измерения записывать не нужно. *
2) В одном из вариантов кодировки Unicode на каждый символ отводится 2 байта. Определите информационный объём в битах слова из 26 символов в этой кодировке. В ответе запишите только число, единицу измерения записывать не нужно. *
3) В одном из вариантов кодировки Unicode на каждый символ отводится 16 битов. Определите информационный объём в Кбайтах текста из 16384 символов в этой кодировке. В ответе запишите только число, единицу измерения записывать не нужно. *
4) В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в байтах в данной кодировке: "Без муки нет и науки." В ответе запишите только число, единицу измерения записывать не нужно ПОДАЛУЙСТА
var
s,w:string;
begin
Write('Введите предложение: '); Readln(s);
Write('Введите искомое слово: '); Readln(w);
s:=' '+s+' ';
if Pos(' '+w+' ',s)>0 then Writeln('Слово входит в предложение')
else Writeln('Слово не входит в предложение')
end.
Тестовые решения:
Введите предложение: А роза упала на лапу Азора
Введите искомое слово: роза
Слово входит в предложение
Введите предложение: Вчера смотрели старую кинопанораму
Введите искомое слово: кино
Слово не входит в предложение
Введите предложение: Интересное было кино или так себе?
Введите искомое слово: кино
Слово входит в предложение
Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о контексте (подстроке)
Вот пример программы на паскале ABC:
var a:array [1..1000000] of integer;
b:array [1..10] of longint;
c:integer;
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n);
max:=0;
for i:=1 to 10 do
b[i]:=0;
for i:=1 to n do begin
a[i]:=random(10)+1;
write(a[i],' ');
b[a[i]]:=b[a[i]]+1
end;
for i:=1 to 10 do if b[i]>max then
begin
c:=i;
max:=b[i]
end;
writeln;
writeln('Чаще всего в массиве встречается число ',c)
end.