Question

Cформировать максимальное число, сумма десятичных цифр которого равна A, а число десятичных разрядов не превосходит B.

Answer 1

===== PascalABC.NET =====

begin

 var (a, b) := ReadInteger2('Введите A и B:');

 if (a > 9 * b) then

   Println('Нет решения')

 else

 begin

   var s := (a div 9) * '9' + (a mod 9).ToString;

   s += (b - s.Length) * '0';

   s.Println

 end

end.