Подготовка к государственной итоговой аттестации по информатике

Задание 25. (ДЕМО-2023)

Назовём  маской  числа  последовательность  цифр,  в  которой  также  могут встречаться следующие символы: 
–   символ «?» означает ровно одну произвольную цифру; 
–   символ  «*»  означает  любую  последовательность  цифр  произвольной длины; в том числе «*» может задавать и пустую последовательность. 
Например, маске 123*4?5 соответствуют числа 123405 и 12300405. 
Среди   натуральных   чисел,   не   превышающих   10^10 ,   найдите   все   числа, соответствующие маске 1?2139*4, делящиеся на 2023 без остатка. В   ответе   запишите   в   первом   столбце   таблицы   все   найденные   числа в   порядке   возрастания,   а   во   втором   столбце – соответствующие им результаты деления этих чисел на 2023.  
Количество строк в таблице для ответа избыточно.

Решение

f

ПРИМЕР:

var s:string;

     x:integer;

begin  

   for var i:=0 to 9 do    

     for var j:=0 to 9 do  begin   

        s:='1300'+inttostr(i)+'57'+inttostr(j)+'9';    

        x:=strtoint(s); 

       if x mod 999=0 then println(x, x div 999); 

       end;  

      for var i:=10 to 99 do    

         for var j:=0 to 9 do  begin   

                s:='130'+inttostr(i)+'57'+inttostr(j)+'9';   

                x:=strtoint(s);   

               if x mod 999=0 then println(x, x div 999);  

               end;  

   for var i:=100 to 999 do    

        for var j:=0 to 9 do  begin   

              s:='13'+inttostr(i)+'57'+inttostr(j)+'9';   

              x:=strtoint(s);   

              if x mod 999=0 then println(x, x div 999); 

        end;

end.