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

Hi1666888888 Hi1666888888    2   24.11.2019 12:27    1

Ответы
olegzabl olegzabl  10.10.2020 15:21

===== 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.


Cформировать максимальное число, сумма десятичных цифр которого равна a, а число десятичных разрядов
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика