1)Агерес очень любит числа, а также задачки с цифрами. Но не

1)Агерес очень любит числа, а также задачи с цифрами. Но не все так просто. Дело в том, что некоторая цифра A недавно начала казаться ему странной, потому Агерес решил всяко избегать использования этой числа.
Сегодня Агерес делал ДЗ по арифметике и в качестве ответа на одно из заданий он получил великое число N, теперь он желает записать в тетради ответ на эту задачку, но так как ему кажется необычной цифра A, он решил записать малое число, которое не содержит цифр A, и при этом оно не меньше N. Так как Агерес еще малюсенький, а числа большие, то он обратился к вам за помощью.

Формат файла входных данных:
В первой строке дано число N (1 lt;= N lt;= 1015). Во второй строке дана цифра A (1 lt;= A lt;= 9).

Формат файла выходных данных:
Выведите малое число, больше либо одинаковое N, не содержащее цифр A.

Задать свой вопрос
Валерий Горпищенко
Программка обязана быть написана на pascal
1 ответ
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (n,A):=(ReadlnInteger,ReadlnInteger);
  var d:=A.ToString;
  while (n.ToString).Contains(d) do n+=1;
  n.Println
end.

Пример
644
4
650
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт