3. Всего символов: 3 * 25 * 60 Объем в битах: 1125 * 8 Бит на символ: 1125 * 8 / (3 * 25 * 60) = 2 В алфавите 2^2 = 4 символа.
4. D5:E6 - прямоугольный диапазон, в углах которого стоят D5 и E6. В неговходят все указанные в задании ячейки. СУММ(диапазон) считает сумму всех чисел в диапазоне. В данном случае получится 8+3+5+2=18.
Дано: Страниц - 3 Строк - 25 Символов в строке - 60 Объём всего - 1125 байт Формулы: Нахождение общего количество символов: Страницы*Строки*Символов в строке=Общее количество символов Перевод из байт в биты: байты*8=биты Вычисление мощности алфавита: 2^b>=A (где A-мощность алфавита, b-количество бит, приходящееся на 1 символ) Решение: Вычислим общее количество символов: 3(страницы)*25(строки)*60(символы)=4500 символов Теперь вычислим число бит, выделяемое на хранение 1 символа: 1125 байт=9000 бит 9000(бит)/4500(символов)=2 бит Нахождение мощности алфавита: 2^2=4 символа ответ: 4
1. Динамический массив
program p_1;
var n,i,k:integer;
a:array of integer;
begin
write('Введите количество элементов массива ');
readln (n);
a := new integer[n+1];
for i:=1 to n do
begin
write('Введите ',i,' элемент массива ');
readln (a[i])
end;
k:=0;
for i:=1 to n do
if a[i] = 0 then k:=k+1;
writeln;
writeln('k = ',k)
end.
2. Статический массив
program p_1;
var n,i,k:integer;
a:array [1..1000] of integer;
begin
write('Введите количество элементов массива ');
readln (n);
for i:=1 to n do
begin
write('Введите ',i,' элемент массива ');
readln (a[i])
end;
k:=0;
for i:=1 to n do
if a[i] = 0 then k:=k+1;
writeln;
writeln('k = ',k)
end.