A»: напишите программу, которая заменяет в символьной строке все точки на нули и все буквы x на единицы.

пример:

введите строку: ..x.xx

двоичный код: 0010110

​

begin

 var s := ReadlnString('Введите строку:');

 for var i := 1 to s.Length do

   case s[i] of

     '.': s[i] := '0';

     'X', 'Х': s[i] := '1'

   end;

 Println('Двоичный код:', s);

end.

PascalABC.NET