Используем формулу 2^i=N. Так как в алфавите 16 символов (N=16), то 2^i=16, следовательно i=4. 4 бита весит один символ. 384*4=1536. 1536 бит весит сообщение из 384 символов по 4 бита каждый. Переводим биты в байты. 1 байт=8 бит, 1536/8=192 байта. Переводим байты в килобайты. 1 килобайт=1024 байт. 192/1024=0,1875 килобайт весит все сообщение. Так что лучше ответ оставить в байтах (192 байта).
110 Кбайт = 110*1024 байт
16 бит = 2 байта
Количество страниц = 110*1024 / (40*64*2) = 22
Пишем от 0 до 6, потом добавляем +1 в старший разряд...
0 1 2 3 4 5 6
10 11 12 13 14 15 16
20
А для натурального ряда отсчет идет с 1, поэтому
1 2 3 4 5 6
10 11 12 13 14 15 16
20 21
//Pascal ABC.NET v3.1 сборка 1172
var
ma: array of array of integer;
n, m, i, j, max, maxi, maxj: integer;
f: text;
s, st: string;
begin
randomize;
readln(n);
readln(m);
max := -1;
setlength(ma, n);
for i := 0 to n - 1 do
setlength(ma[i], m);
writeln('Matrix:');
for i := 0 to n - 1 do
begin
writeln;
for j := 0 to m - 1 do
begin
ma[i, j] := random(101);
write(ma[i, j]:4);
if max < ma[i, j] then
begin
max := ma[i, j];
maxi := i;
maxj := j;
end;
end;
end;
assign(f, 'text.txt');
rewrite(f);
for i := 0 to m - 1 do
write(f, ma[maxi, i]:4);
writeln(f, ' ');
for i := 0 to n - 1 do
write(f, ma[i, maxj]:4);
close(f);
writeln;
writeln('File:');
assign(f, 'text.txt');
reset(f);
while not Eof(f) do
begin;
readln(f, st);
s := s + st + chr(10) + chr(13);
end;
close(f);
write(s);
end.
Пример ввода:
3
4
Пример вывода:
Matrix:
30 29 3 61
64 4 99 36
45 9 85 19
File:
64 4 99 36
3 99 85
На экран выведет :a=1 b=11 поэтому ответ:1,11