Составь слово из букв л о с ы к о о м р известны буквы предпоследняя л 5 буква м 6 ы всего 9 букв

ответ прост- коромысло. это:

1.деревянная дуга  выемками на концах для носки вёдер на плечах.

2.название рычагов в некоторых механизмах (у весов, например)

Ну типо так: domains treetype = tree(integer, treetype, treetype); empty   predicates max_t(treetype, integer) min_t(treetype, integer) max(integer,integer,integer) min(integer,integer,integer)   clauses   max(m,n,n) : - n> =m, ! . max(m,n,m) : - m> =n, ! .   min(m,n,n) : - n< =m, ! . min(m,n,m) : - m< =n, ! .   max_t(tree(x,empty,empty),x) : - ! . max_t(tree(x,empty,r),q) : - max_t(r,n), max(x,n,q). max_t(tree(x,l,empty),q) : - max_t(l,n), max(x,n,q). max_t(tree(x,l,r),q) : - max_t(l,lm), max_t(r,rm), max(rm,lm,qm), max(x,qm,q).   min_t(tree(x,empty,empty),x) : - ! . min_t(tree(x,empty,r),q) : - min_t(r,n), min(x,n,q). min_t(tree(x,l,empty),q) : - min_t(l,n), min(x,n,q). min_t(tree(x,l,r),q) : - min_t(l,lm), min_t(r,rm), min(rm,lm,qm), min(x,qm,q).

1. современное решение // pascalabc.net 3.2, сборка 1488 от 21.06.2017 // внимание! если программа не работает, обновите версию! function from5to10(self: sequence of string): sequence of integer;       extensionmethod; // перевод последовательности заданных на строках пятиричных чисел // в последовательность целых десятичных чисел begin   foreach var s in self do begin       var r: =0;       var pa: =1;       foreach var c in s.reverse do begin           r+=c.todigit*pa; pa*=5       end;       yield r       end end; begin   var s: =readlnstring('введите строку: ').matchvalues('[0-4]+').from5to10;   if s.count=0 then writeln('s=-1')   else writeln('s=',s.sum) end. пример введите строку: sdf812973j223k s=73 2. решение на turbopascal ("так писали наши отцы и деды в 1983 году, так и нас сейчас учат в школе") uses crt; function from5to10(n: string): integer; { перевод из пятиричного числа в строковом представлении   в целое десятичное } var   i,pa,s: integer; begin   s: =0;   pa: =1;   for i: =length(n) downto 1 do begin       s: =s+pa*(ord(n[i])-ord('0'));       pa: =pa*5       end;   from5to10: =s end; var   s,w: string;   i,k,r: integer; begin   clrscr;   write('введите строку: ');   readln(s);   w: ='';   r: =0;   k: =0;   for i: =1 to length(s) do begin       if pos(s[i],'01234')> 0 then begin           if w='' then k: =k+1;           w: =w+s[i]           end       else           if w< > '' then begin               r: =r+from5to10(w);               w: =''               end       end;   if k=0 then writeln('s=-1')   else writeln('s=',r);   readkey end.