Const nx=30;
var a:array[1..nx] of string; p,i,j,n,k:integer; s,d:string;begin
s:='Дана строка символов состоящий из отдельных слов разделенных пробелом';
s:= s + ' Упорядочить слова по длине в убыванию и вывести на печать';
p:=1;while p>0 do begin
i:= i + 1; p:= pos(' ',s);
if p>0 then a[i]:=trim(copy(s,1,p)) else a[i]:=s;writeln(a[i]);Delete(s,1,p);end;
for k:=1 to i do begin
for j:=2 to i do begin
if length(a[j-1]) < length(a[j]) then begin
d:=a[j-1];a[j-1]:=a[j];a[j]:= d;end;end;end;
writeln;
for k:=1 to i do
<span>writeln(a[k]);end.</span>
Любой файл. txt - это расширение. Соответственно название может быть любое
Ответ:
1. 20
2. 30
Объяснение:
Это рекурсивный алгоритм, новые значения берутся из значений полученных ранее
F(1)=2
F(2)=F(2-1) + 2*2=2+4=6
F(3)=F(3-1) + 2*3=6+6=12
F(4)=F(4-1) + 2*4=12+8=20
Аналогично со 2 алгоритмом
В счетчиках можно вместо 5 указать константу n и где вывод проверку если равен n запятую не печатаем
Код Бодо отводит на каждый символ по 5 бит вне зависимости от частоты использования символов.
Меж тем, в естественных языках есть очень часто используемые буквы, и есть буквы, применяемые реже.
В коде Морзе частым буквам сопоставлены короткие комбинации, двухбитовые, более редко применяемым буквам - более длинные коды.
Таким образом, код Морзе позволяет передать больше символов, чем код Бодо по одному и тому же каналу связи