решить задачи. у меня не получается :(
3) Текст (использован 256-символьный алфавит), содержит 55 страниц; на каждой странице – 45
строк, в каждой строке – 62 символа. Каков объем информации в документе?
4) Какова мощность алфавита, с которого записано сообщение, содержащее 1024
символов, если его объем составляет 1/512 Мбайта?
5) Для записи текста использовался 256-символьный алфавит. Каждая страница содержит 65 строк
по 55 символов. Какой объем информации содержат 110 страниц текста?
6) Сообщение содержит 768 символов. Его объем 1,5 Кбайт. Какова мощность алфавита?
7) Текст (использован 256-символьный алфавит), содержит 105 страниц; на каждой странице – 55
строк, в каждой строке – 40 символов. Каков объем информации в документе?
8) Какова мощность алфавита, с которого записано сообщение, содержащее 2048
символов, если его объем составляет 1/512 Мбайта?
9) Текст (использован 256-символьный алфавит), содержит 120 страниц; на каждой странице – 60
строк, в каждой строке – 55 символа. Каков объем информации в документе?
10) Для записи текста использовался 256-символьный алфавит. Каждая страница содержит 50 строк
по 60 символов. Какой объем информации содержат 200 страниц текста?
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
if a[i]>sr then write(i:3);
writeln;
end.
Пример:
Массив:
9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
2 3 10 11 13 14 15