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

0 голосов
22 просмотров

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

Формат файла входных данных:
В первой строке дано число N (1 <= N <= 1015). Во второй строке дана цифра A (1 <= A <= 9).<br>
Формат файла выходных данных:
Выведите минимальное число, больше либо равное N, не содержащее цифр A.


Информатика (23 баллов) | 22 просмотров
0

Программа должна быть написана на pascal

Дан 1 ответ
0 голосов
Правильный ответ
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
(150k баллов)