1.
32 = 2 в 5ой степени, поэтому для представления одной буквы потребуется 5 битов информации, и наоборот, одной буквой можно кодировать 5 бит. Ответ: 5 бит.
2.
Формула объема информации : . K = 16 (так как символов в алфавите 16). То есть один символ несет бита информации. Таких символов у нас 50, значит, бит информации.
3.
Дано:N=16 символовI=1/16 МБайта=64 Кбайта=65536 байт=524288 битНайти:KРешение:2i(2 в степени i)=N; 2i=16 ; i=4 битаI=k*i ; k=I/i=524288/4=131072 символаОтвет: 131072 символа.
4.
Формула для расчёта количества информации: .У нас N = 384, К = 16. Считаем: бит. 1536 бит - это 192 байта , 192 байта = 0.1875 Кбайта.
5.
M1 = M2 ; K2 = 1,5K1 ; N1<10 ; N2<10Решение:M1 = K1*i1 ; M2 = 1,5K1*i2 делим одно на другое, получаем пропорцию:1,5K1:K1 = i2:i1 получаем из этого что и i2 должно быть больше i1 в полтора раза.N = 2^i ; чтобы число битов было целым и алфавит не превыщал 10 подходит только 3 числа: 2(1 бит), 4(2 бита), 8(3 бита). Из этих чисел согласно пропорции подходят только 4 и 8, т.к именно в них число битов различается в полтора раза.Ответ: 4 и 8 символов.
вот и всё!
Ну как чего не хватает... У тебя в цикле for несколько операций (Счетчик и вывод) - для этих моментов (Много операций в цикле) используется begin end;
Море-орел-лото-очаг-гном-мышь...
Program Pr1;
uses crt;
var f,c:real;
begin
clrscr;
c:=15;
while c<=30 do begin
f:=c*1.8+32;
writeln(c,'-Цельсия; Фаренгейт - ',f);
c:=c+1;
end;
end.
2)
Program Pr1;
uses crt;
var stroka:string;
i,v,x:integer;
Begin
clrscr;
readln(stroka);
x:=0;
v:=0;
for i:=1 to length(stroka) do begin
if stroka[i]<>' ' then v:=v+1;
if (stroka[i]='т') or (stroka[i]='Т') then x:=x+1;
end;
writeln('Количество букв- ',v,' Количество букв Т -',x);
end.
В одном месте, видимо, опечатка (№ 21-25 два раза, а № 26-30 нет).
const n=40;
var x:array[1..100] of real;
i:integer;
begin
Randomize;
for i:=1 to 5 do begin
write('x[',i,']=');
readln(x[i]);
end;
for i:=6 to 10 do x[i]:=random(11);
for i:=11 to 15 do x[i]:=random(11)-10;
for i:=16 to 20 do x[i]:=random(31)+20;
for i:=21 to 25 do x[i]:=random(31)-50;
for i:=31 to 40 do x[i]:=i*i;
for i:=30 downto 26 do x[i]:=x[i+1]+x[i+2];
for i:=1 to n do write(x[i],' ');
writeln;
end.
Пример:
x[1]=32
x[2]=49
x[3]=81
x[4]=27
x[5]=50
32 49 81 27 50 3 7 7 6 5 -9 -4 -3 -3 0 23 32 40 24 36 -43 -26 -34 -44 -22 12808 7877 4931 2946 1985 961 1024 1089 1156 1225 1296 1369 1444 1521 1600
