1)Вычисли значение математического выражения в MS Excel: (87+125)−2(72:(7+8)). (ответ округли до сотых) 2)Вычисли значение математического выражения в MS Excel: (71+159)−2(72:(4+6)). (ответ округли до сотых) Решите
А) var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.
1. 1,5 Кбайт
2. 8 бит
Объяснение:
1.
N = 2^i
N - мощность алфавита (количество символов в алфавите)
i - информационный вес одного символа алфавита
N = 64 символа
i = 6 бит (64 = 2^6)
I = K * i
I - информационный объём сообщения
K - количество символов в сообщении
i - информационный вес одного символа алфавита
K = 2048 символов
I = 2048 * 6 = 12288 бит
12288 бит = 12288 / 8 = 1536 байт (1 байт = 8 бит)
1536 байт = 1536 / 1024 = 1,5 Кбайт (1 Кбайт = 1024 байт)
2.
I = K * i
I = 32 Кбайт = 32 * 1024 = 32768 байт = 32768 * 8 = 262144 бит
K = 32768 символов
i = I / K
i = 262144 / 32768 = 8 бит
8 бит = 1 байт
var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.