Var
s,i : integer;
begin
s :=0;
for i := 2 to 6 do
s := s + sqr(i);
writeln (s);
end.
А вектор + а
Отрицание на отрицание дает положительный ответ
===== PascalABС.NЕТ =====
begin
ReadArrInteger('Вводите:', ReadInteger('n ='))
end.
1)В алфавите 16 символов, т.к. N=2 в степени i. i=4
2)запишем условие: N=32, K=221, I-?
Решение: из формулы мощности алфавита найдем информационный вес 1 символа: 32=2 в степени i. Отсюда i=5 бит.
Подставим i в формулу информационного объема сообщения:
I=K*i=221*5бит=1105 бит Это и есть ответ
3)Запишем условие: N=256 (мощность компьютерного алфавита)
I=4Kб , К-?
Решение: выразим информационный объем в битах
I=4*1024*8бит
Найдем информационный вес 1 символа по формуле N=2 в степени i
256=2 в степени i, i=8 бит
Выразим К из формулы информационного объема
К=I/i, K=(4*1024*8)/8=4096 символов Это и есть ответ