Question

Для заданного числа N требуется найти наименьшее число, которое начинается с определенной последовательности цифр S и делится на N

Answer 1

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadlnInteger;
  var s:=ReadInteger;
  if s mod n=0 then begin Writeln(s); Exit end;
  var k:=10;
  while true do begin
    var s1:=s*k;
    for var i:=0 to k-1 do
      if (s1+i) mod n=0 then begin Writeln(s1+i); Exit end;
    k*=10
    end
end.

Пример
17
19
1904