Решить маша создала документ, объём которого - 5,5 кбайт.известно, что данное сообщение содержит 5632 символа. сколько битов приходится на 1 символ? а) 8 бит б) 16 бит в) 1 мб г) 2 кб
// PascalABC.NET 3.2, сборка 1382 от 06.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк (столбцов) в массиве:'); Writeln('*** Исходный массив [',n,',',n,'] ***'); var a:=MatrRandom(n,n,-10,10); a.Println(4); Writeln(5*a.ColCount*'-'); var k,l:integer; Write('Введите L,K: '); Read(l,k); var lim:=a[l-1,k-1]; var s:=a.Rows.SelectMany(x->x).Where(x->x<lim).Sum; Writeln('Искомая сумма равна ',s) end.
CLS RANDOMIZE TIMER INPUT "N = ", N DIM D%(N) PRINT "D("; N; "):"; K = 0 FOR i = 1 TO N D%(i) = RND * (2 * N + 1) - N PRINT " "; D%(i); NEXT i PRINT INPUT "T = ", T FOR i = 1 TO N IF D%(i) = T THEN K = K + 1 END IF NEXT i PRINT "K = "; K END
2)
CLS RANDOMIZE TIMER DIM D%(14), C%(14) PRINT "D(14):"; K = 0 FOR i = 1 TO 14 D%(i) = RND * 41 - 20 PRINT " "; D%(i); IF D%(i) < 7 THEN K = K + 1 C%(K) = D%(i) END IF NEXT i PRINT PRINT "C("; K; "):"; FOR i = 1 TO K PRINT " "; C%(i); NEXT i END
5632 симв/5632 байт = 1 байт/симв = 8 бит
ответ: а) 8 бит