Напишите программу которая заменяет в символьной строке все точки на нули и все буквы х на единицы. например, из строки '..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.

2.) var x1, y1, x2, y2, n1, n2: real; begin write('x1, y1: '); read(x1, y1); write('x2, y2: '); read(x2, y2); n1: = sqrt(sqr(x1)+sqr(y1)); writeln(n1); n2: = sqrt(sqr(x2)+sqr(y2)); writeln(n2); if n1< > n2 then if n1< n2 then writeln('1 точка находится ближе к началу координат.') else writeln('2 точка находится ближе к началу координат.') else writeln('точки находятся на равном расстоянии от начала координат.') end.3.)var n, x, a, b, c, s: integer; beginwrite('введите число: '); readln(n); if (n> 99) and (n< 1000) thenbeginwrite('введите x: '); readln(x); a: = n div 100; b: = (n - a*100) div 10; c: = (n - a*100 - b*10); if a=x then s: =s+1; if b=x then s: =s+1; if c=x then s: =s+1; if s> 0 thenwriteln('в числе есть ', x)else  writeln('в числе нет ', x); endelsewriteln('число не трехзначное'); end.