задача 1
запишем условие: строк=40, символов=50, страниц=10, I=12500 байт, N-?
решение: посчитаем общее кол-во символов в тексте К=40*50*10=20000
переведем информационный объем в биты I=12500*8=100000 бит
из формулы I=K*i найдем i: i=I/K=100000/20000=5бит
из формулы мощности алфавита найдем мощность
N=2^5=32 это и есть ответ
задача2
запишем условие: страниц=180, символы=2048, N=128, I(Кб)-?
решение: вычислим общее кол-во символов в тексте
К=180*2048=368640
найдем вес одного символа алфавита N=2^i, 128=2^i, 2^7=2^i, i=7 бит
подсчитаем информационный объем текста I=368640*7=2580480 бит=
322560 байт=315 Кб это и есть ответ
задача3
запишем условие: N=87, K=200, I-?
решение: из формулы мощности алфавита найдем i с учетом того, что 87 не является целой степенью двойки. ближайшая мощность алфавита -64, поэтому i=6 бит
вычислим информационный объем I=K*i=200*6=1200 бит/8=150 байт
1)
var n,k: integer;
begin
readln(n);
if (n>0) and (n<10) then k:=1
else if (n>9) and (n<100) then k:=2
else k:=3;
write(k);
end.
2)
var a,b,c: integer;
D,x1,x2: real;
begin
readln(a,b,c);
D:=b*b-4*a*c;
if(D>0) then begin
x1:=((-1)*b+sqrt(D))/(2*a);
x2:=((-1)*b-sqrt(D))/(2*a);
write(x1,' ',x2);
end else if (D=0) then begin
x1:=(-1)*b/(2*a);
write(x1);
end else write('Нет решений');
end.
3)
var x,y: integer;
begin
readln(x,y);
if(x=0) or (y=0) then write('точка лежит на координатной оси')
else begin
if(x>0) then begin
if(y>0) then write('I')
else write('IV');
end else
if(y>0) then write('II')
else write('III');
end;
end.
