Question

напишите программу которая заменяет в символьной строке все точки на нули и все буквы х на единицы. Например, из строки '..XX..X.' должна получиться строка '00110010’.

Answer 1

===== PascalABC.NET =====

begin

 var s := ReadlnString;

 for var i := 1 to s.Length do

   case s[i] of

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

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

   end;

 Println(s)

end.