Кодируем точку нулем, тире - единицей. Тогда комбинация длиной пять сигналов может содержать максимум 5 единиц, т.е. для записи понадобится 5 бит.
Числу 11111(2) соответствует число 16+8+4+2+1=31(10), следовательно всего можно записать 32 комбинации точек и тире, которые будут кодироваться числами от 0 до 31.
===== PascalABC.NET =====
procedure SumP(a: array[,] of integer; p: integer; var s: integer);
begin
s := a.Row(p-1).Sum
end;
begin
var m := MatrRandom(11, 4, 24, 32);
m.Println(3);
var s5, s10: integer;
SumP(m, 5, s5);
SumP(m, 10, s10);
Println('Учеников:', s5 + s10)
end.
БЛОК-СХЕМА ВО ВЛОЖЕНИИ
var
a,b,c,min:real;
begin
readln(a,b,c);
if (a*b*c)<(a+b+c)then
min:=a*b*c
else
min:=a+b+c;
writeln(min);
end.
1.
var a,k: integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if a mod 4 = 0 then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
5
20
24
0
k = 2
2.
var a,k: integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (a>9)and(a<100)and(a mod 10 = 4) then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
5
20
24
204
4
0
k = 1
1) С хорошей стороны помогает в промышленности, В учёбе (легче показать график, быстрее найти информацию), помогает для решения сложных задач, общение с близкими 2) С плохой да, в самом деле забирает время, вирусы, перехват данных, цензуры нет. много мошенников и не проверенной информации, зависимость от игр