1. Cчитаем количество символов. Если с точкой, то получается 31. Один символ кодируется одним байтом, поэтому всё сообщение кодируется 31 байтом. Переводим в биты: 31*8=248 бит.
2. Чтобы получить мощность алфавита, сначала нужно узнать вес одного символа: 9 Кбайт переводим в биты (9*1024*8) и получаем 73728 бит.
Далее делим это число на количество символов (8192), получаем 9.
Ну а чтобы найти мощность алфавита, мы число 2 возводим в найденную 9, получим 512.
3. Сначала определим количество символов во всей статье: мы просто перемножаем 12, 32 и 48, получаем 18432.
Далее узнаём информационный объём в битах: 18432 умножаем на 16, получаем 294912. Чтобы это число перевести в килобайты, мы делим на 8, а потом ещё раз делим на 1024, получим 36 Кбайт.
В 5 строчке надо было написать 'then', а написано 'thn'
В 7 строчке 'else' должно быть, а написано 'ele'
Строчка 'd:=bb-4ac' тоже неверная. Переменной bb не было, поэтому, кажется, должно быть b.
Там много ошибок, поэтому я немного подправила код. Но он всё равно не будет работать, потому что там используется конструкция if else неправильно (лучше ещё раз переписать код и как-то изменить эту конструкцию. там много else, а по правилам, к каждому if относится только одно else. Самостоятельно же else работать не может без if)
var a,b,c,D,x1,x2:real;
begin
writeln('введите a,b,c');
readln(a,b,c);
if a=0 then if b=0 then if c=0 then writeln('x любое')
1. 240
2. 512
3. 36
Объяснение:
1. Cчитаем количество символов. Если с точкой, то получается 31. Один символ кодируется одним байтом, поэтому всё сообщение кодируется 31 байтом. Переводим в биты: 31*8=248 бит.
2. Чтобы получить мощность алфавита, сначала нужно узнать вес одного символа: 9 Кбайт переводим в биты (9*1024*8) и получаем 73728 бит.
Далее делим это число на количество символов (8192), получаем 9.
Ну а чтобы найти мощность алфавита, мы число 2 возводим в найденную 9, получим 512.
3. Сначала определим количество символов во всей статье: мы просто перемножаем 12, 32 и 48, получаем 18432.
Далее узнаём информационный объём в битах: 18432 умножаем на 16, получаем 294912. Чтобы это число перевести в килобайты, мы делим на 8, а потом ещё раз делим на 1024, получим 36 Кбайт.
В 5 строчке надо было написать 'then', а написано 'thn'
В 7 строчке 'else' должно быть, а написано 'ele'
Строчка 'd:=bb-4ac' тоже неверная. Переменной bb не было, поэтому, кажется, должно быть b.
Там много ошибок, поэтому я немного подправила код. Но он всё равно не будет работать, потому что там используется конструкция if else неправильно (лучше ещё раз переписать код и как-то изменить эту конструкцию. там много else, а по правилам, к каждому if относится только одно else. Самостоятельно же else работать не может без if)
var a,b,c,D,x1,x2:real;
begin
writeln('введите a,b,c');
readln(a,b,c);
if a=0 then if b=0 then if c=0 then writeln('x любое')
else writeln('нет решений')
else begin
x1:=c/b;
writeln('x=',x1:12:6);
end;
else begin
d:=b-4ac;
if d>0 then begin
x1:=(-b-sqrt(D))/(2a);
x2:=(-b+sqrt(D))/(2a);
writeln('x1=',x1:12:6);
writeln('x2=',x2:12:6);
end;
else if D=0 then begin
x1:=-b/(2a);
writeln('x=',x1:12:6);
end;
else writeln('нет решений' );
end;
readln;
end.