Напишите программу, которая вводит строку, состоящую только из точек и букв Х, и заменяет в ней все точки на нули и все буквы X на единицы.
Пример:
Введите строку: ..X. XX.
Двоичный код: 0010110

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед

проводник - абориген.

потому что если бы он спросил у пришельца, которые всегда лгут, "кто ты? ", то тот солгал, сказав "абориген". и проводник пришел и сказал правду.

а если бы проводник был бы пришельцем, спросив у аборигена "кто ты? ", то абориген   сказал бы правду. но пришелец путешественнику соврал бы, сказав, что тот пришелец.