Заменить все вопросительные знаки цифрами (от 1 до 9), перевести строку в число, вывести все возможные варианты

@Горбачев · Регистрация: 07.06.2018

Author24 — интернет-сервис помощи студентам

Дана строка состоящая из цифр и вопросительных знаков. Длина строки от 1 до 9 символов. Цель: заменить все вопросительные знаки цифрами (от 1 до 9) и перевести строку в число, вывести все возможные варианты. Прошу вас пользователи помочь мне с этим не простым заданием.

@JuriiMW · 08.06.2018, 08:08

Pascal

procedure перебор(s : String; n : Integer);
begin
  if n > s.Length then
    print(s)
  else if Char.IsDigit(s[n]) then
    перебор(s, n+1)
  else if s[n] = '?' then
    foreach var c in '123456789' do
      begin
        s[n] := c; перебор(s, n+1);
      end
  else
    begin
      WriteLn($'Недопустимый символ "{s[n]}"'); halt;
    end;
end;
 
begin
  var s:=ReadLnString;
  перебор(s, 1);
end.

@Горбачев 0 / 0 / 0 Регистрация: 07.06.2018 Сообщений: 3
		1
	Заменить все вопросительные знаки цифрами (от 1 до 9), перевести строку в число, вывести все возможные варианты 07.06.2018, 19:34. Показов 1733. Ответов 1 Метки нет (Все метки) Дана строка состоящая из цифр и вопросительных знаков. Длина строки от 1 до 9 символов. Цель: заменить все вопросительные знаки цифрами (от 1 до 9) и перевести строку в число, вывести все возможные варианты. Прошу вас пользователи помочь мне с этим не простым заданием. 0

	08.06.2018, 08:08

Заменить все вопросительные знаки цифрами (от 1 до 9), перевести строку в число, вывести все возможные варианты

Решение