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

ответ:

я не знаю на каком языке ты делаешь поэтому я общий ответ. ты можеш все слова в строке перевести в массивы в которых в одной ячейке массива будет одна буква слова. создаеш переменную в которой будет храница результат. дальше ты делаешь условие если эта ячейка равна . то прибавить 0 к уже созданной ранее переменной в виде строки, иначе (тоисть это x) прибавить к тоже самой переменной 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.

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.

1)

vara, b: integer;

beginreadln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) thenwriteln('сумма цифр ', a, ' больше')elsewriteln('сумма цифр ', b, ' больше'); end.

2)

vara: integer;

beginreadln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

vara: integer;

beginreadln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) thenwriteln('есть 2 одинаковые цифры')elsewriteln('нет 2-х одинаковых цифр'); end.