Внекоторой системе счисления число записывается как 403. укажите наименьшее возможное основание этой системы счисления.

Чтобы найти наименьшее возможное основание системы счисления, нужно обратить внимание на максимальную цифру числа. в нашем случае это 4. следовательно наим. основание системы счисления - 5.

Var x, temp, p, a, original: integer; found: boolean; begin found: =false; //переменная примет значение "истина" тогда, когда число а будет найдено в цифрах первого числа writeln('введите натуральное число"); readln(original); writeln('введите число a'); readln(a); x: =original; p: =1; //будет хранить произведение цифр числа(если приравнять нулю, то произведение всегда будет равно нулю) while x> 0 do                      //пока x болльше нуля   begin       temp: =x mod 10;         //заносим последнюю цифру числа x в переменную temp       if temp=a then found: =true; //если цифра числа равна a, то помечаем, что нашли ее       p: =p*temp;                   //домножаем произведение на цифру       x: =x div 10;               //отбрасываем последнюю цифру числа через целочисленное деление   end; writeln('произведение цифр числа ' + original + ' равно ' + p); if found then writeln('цифра' + a + ' есть в исходном числе ' + original) else writeln('цифра ' + a + ' отсутствует в оригинальном числе ' + original) end;