Var a,i:integer;
m:array[1..10] of integer;
begin
a:=10;
randomize;
for i:=1 to a do
begin
m[i]:=random(21);
end;
for i:=1 to a do
if (m[i]>5) and (m[i]<15) then
writeln(m[i]);
<span>end. </span>
Объем =
1024 Кбайт /
128 =
8 Кбайт *
1024 =
8192 Байта * 8 =
65536 Бит
16 =
i =
4 (кол-во бит на один символ)
Кол-во символов = Объем сообщения / i =
65536 бит /
4 =
16384 Символа
Ответ :
16384 Символа
128 =
i = 7 бит (объем одного символа в алфавите Манго)
7 * 150 = 1050 бит (объем сообщения Манго)
64 =
i = 6 бит (объем одного символа в алфавите Кокоса)
6 * 200 = 1200 бит (объем сообщения Кокоса)
1200 + 1050 = 2250 бит (общий объем 2-ух сообщений)
Ответ :
2250 бит
1)
Program n1;
var a: array[1..10] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
writeln('исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
if a[i]<0 then sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
end.
2)
Program n2;
var a: array[1..10] of integer;
i,k: integer;
begin
randomize;
k:=0;
writeln('исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
write('номера дел на 5: ');
for i:=1 to 10 do if a[i] mod 5=0 then write(i,' ');
end.