Вопрос пользователя:
Ответ нейросети:
program ReplaceChars;
var str: string; i: integer;
begin writeln('Введите строку из точек и букв X:'); readln(str);
for i := 1 to length(str) do begin if str[i] = '.' then str[i] := '0' else if str[i] = 'X' then str[i] := '1'; end;
writeln('Результат замены:'); writeln(str); end.
Напишите нам, если в вопросе есть ваши персональные данные ([email protected])
Обратите внимание: ответы, предоставляемые искусственным интеллектом, могут не всегда быть точными. Не рассчитывайте на них в критически важных областях, таких как медицина, юриспруденция, финансы или в вопросах, связанных с безопасностью. Для важных решений всегда обращайтесь к квалифицированным специалистам. Администрация сайта не несет ответственности за контент, сгенерированный автоматически.