Всистеме счисления с некоторыми основанием n число 25 записывается в виде 41n найдите это основание​

Основание = 18

25₁₈ = 5*18⁰ + 2*18¹ = 41₁₀

Объяснение:

25₆ = 5*6⁰ + 2*6¹ = 17₁₀

25₇ = 5*7⁰ + 2*7¹ = 19₁₀

25₈ = 5*8⁰ + 2*8¹ = 21₁₀

25₉ = 5*9⁰ + 2*9¹ = 23₁₀

25₁₁ = 5*11⁰ + 2*11¹ = 27₁₀

25₁₂ = 5*12⁰ + 2*12¹ = 29₁₀

25₁₃ = 5*13⁰ + 2*13¹ = 31₁₀

25₁₄ = 5*14⁰ + 2*14¹ = 33₁₀

25₁₆ = 5*16⁰ + 2*16¹ = 37₁₀

25₁₇ = 5*17⁰ + 2*17¹ = 39₁₀

25₁₈ = 5*18⁰ + 2*18¹ = 41₁₀

25₁₉ = 5*19⁰ + 2*19¹ = 43₁₀

25₂₀ = 5*20⁰ + 2*20¹ = 45₁₀

25₂₁ = 5*21⁰ + 2*21¹ = 47₁₀

25₂₂ = 5*22⁰ + 2*22¹ = 49₁₀

25₂₃ = 5*23⁰ + 2*23¹ = 51₁₀

25₂₄ = 5*24⁰ + 2*24¹ = 53₁₀

25₂₅ = 5*25⁰ + 2*25¹ = 55₁₀

Алгоритм печатает сначала L, потом M. По программе понятно, что L Это количество раз, когда число не кратно 10 (каждый раз число делится на 10), а M - общее количество цифр. Понятно, что раз число должно быть наименьшее, а всего 8 цифр, значит может быть как минимум 4 нуля. Больше нулей быть не может, т.к. если в числе есть значимый ноль, то при делении он будет давать кратность десяти. 4 цифры уже есть, осталось подобрать 4 цифры, которые в числе при делении его на 10 не будут давать остаток 0. Это любые цифры от 1 до 9, но так как число минимальное, значит это цифры "1". Получается, 11110000. Переставляем цифры так, чтобы число было минимальное и получается 10000111.

ответ: 10000111

//PascalABC.NET v3.3 1633

var arr: array [1..6, 1..6] of integer;

begin

 for var i:=1 to 6 do

   for var j:=1 to 6 do

     arr[i, j]:=random(-49, 50);

 

 writeln('Исходный массив: ');

 for var i:=1 to 6 do

     arr[i].PrintLn(', ');

     

 var num:=0;

 for var i:=1 to 6 do

   if arr[i, 2] < 0 then num += 1;

 writeln('Количество отрицательных элементов второго столбца: '+num);

 

 for var i:=1 to 6 do

   for var j:=1 to 6 do

     if arr[i, j] > 0 then arr[i, j]:=-49;

 writeln('Новый массив: ');

 for var i:=1 to 6 do

     arr[i].PrintLn(', ');

end.