формула которая находилась в ячейке G27 после ее копирования в ячейку F25 ,приняла вид =(B28+k25)*$C$18.Запишите аид формулы,которая была в ячейке G27
1. Если алфавит состоит из 64 символов, то для хранения каждого из них необходимо 6 бит, так как 2 ^ 6 = 64, то есть достаточно для хранения алфавита такой размерности.
Для хранения сообщения из 60 символов такого алфавита необходимо 60 * 64 = 3840 бит.
Таким образом, сообщение несет 3840 : 8 = 480 байт информации.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var n:=ReadInteger('Задайте число строк/столбцов массива:'); var a:=MatrixRandom(n,n,-99,99); Writeln('Исходный массив'); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Write(a[i,j]:4); Writeln end; Write('Кол-во нечетных элементов выше главной диагонали: '); var k:=0; for var i:=0 to n-2 do for var j:=i+1 to n-1 do if Odd(a[i,j]) then Inc(k); Writeln(k) end.
1. Если алфавит состоит из 64 символов, то для хранения каждого из них необходимо 6 бит, так как 2 ^ 6 = 64, то есть достаточно для хранения алфавита такой размерности.
Для хранения сообщения из 60 символов такого алфавита необходимо 60 * 64 = 3840 бит.
Таким образом, сообщение несет 3840 : 8 = 480 байт информации.
2. 0.25 кбайт = 256 байт = 2048 бит
3. 2.5 кБайт = 2560 байт.
2560 байт / 2560 символов = 1 байт/символ
1 байт = 8 бит
8 бит = 256 вариантов (от 00000000 до 11111111).
ответ: 256 символов в алфавите
begin
var n:=ReadInteger('Задайте число строк/столбцов массива:');
var a:=MatrixRandom(n,n,-99,99);
Writeln('Исходный массив');
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do Write(a[i,j]:4);
Writeln
end;
Write('Кол-во нечетных элементов выше главной диагонали: ');
var k:=0;
for var i:=0 to n-2 do
for var j:=i+1 to n-1 do
if Odd(a[i,j]) then Inc(k);
Writeln(k)
end.
Тестовое решение
Задайте число строк/столбцов массива: 6
Исходный массив
31 27 -90 -64 -75 22
12 11 79 6 -14 73
-66 -52 -97 -82 -50 47
-65 20 25 -7 -13 46
-31 -9 -69 47 81 2
-43 -68 95 -3 -36 -55
Кол-во нечетных элементов выше главной диагонали: 6