Question

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

Answer 1

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 =====