количество используемых знаков для шифровки 2 (· и -) с знака можно зашифровать 2 сигнала, а именно: · и - с знаков можно зашифровать 4=2² сигнала, а именно: · ·, · -, - · и - - с знаков можно зашифровать 8=2³ сигнала, а именно: · · ·, · · -, · - ·, - · ·, - - ·, - · -, · - - и - - - с знаков можно зашифровать 16=2^4 сигнала, а именно: · · · ·, · · · -, · · - ·, · · - -, · - · ·, · - · -, · - - ·, · - - -, - · · ·, - · · -, - · - ·, - · - -, - - · ·, - - · -, - - - · и, наконец, - - - -
для нахождения количества символов, закодированных с точки и тире длиной не менее (два и более) двух и не более четырех (четыре и менее) сигналов, необходимо сложить возможные варианты их: 2²+2³+2^4=4+8+16=28
procedure sortbutmeh(var ar:ty;n:integer); Var i,j,c:integer; begin for i:=1 to n-1 do for j:=i+1 to n do if ar[i]<ar[j] then begin c:=ar[i]; ar[i]:=ar[j]; ar[j]:=c; end; end;
begin randomize; readln(n); writeln('First array:'); for i:=1 to n do begin ar[i]:=random(100); write(ar[i]:4); end; sortbutmeh(ar,n); writeln; writeln('Array after sortbutmeh()'); for i:=1 to n do write(ar[i]:4); end.
//2) Var n:integer;
procedure ned(n:integer); begin case n of 1:writeln('Понедельник'); 2:writeln('Вторник'); 3:writeln('Среда'); 4:writeln('Четверг'); 5:writeln('Пятница'); 6:writeln('Суббота'); 7:writeln('Воскресенье'); end; end;
begin readln(n); ned(n); end.
//3) Var s:string;
function lengthbutmeh(s:string):integer; begin while pos(' ',s)<>0 do delete(s,pos(' ',s),1); lengthbutmeh:=length(s); end;
Задание 2:
##var s := 8;for var i := 1 to 9 do s += 8 + 2*i;s.Printили
## ArrGen(10, 8, x → x+2).Sum.PrintЗадание 3:
##var (n, s) := (1, 1);while s<100 do (n, s) := (n+1, s*2+n+1);n.Print