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