Укажите наименьшее основание системы счисления , в которой запись числа 86 оканчивается на 22

ответ: 6.

я могу подробно написать в личке.

Если число в системе с основанием х  оканчивается на 22, то

х больше или равно 0 , потому что в системах с меньшим основанием нет цифры 3

это число можно представить в виде А*Х2=2Ч=2  , где А– целое неотрицательное число

определим наибольшее возможное А  с учетом условия х больше или равно 0. Из уравнения  А*Х2=2Ч=2следует А=84-2Х/Х2

очевидно, что чем меньше  Х, тем больше А, поэтому значениене превышает  А МАКС =84-6/3^2=8ЦЕЛЫX З/2.

здесь мы подставили  X=3– наименьшее допустимое значение  [

остается перебрать все допустимые значения A (от 0 до A MAX =8), решая для каждого из них уравнение  A*X2+2X+2=86

относительно X  , причем нас интересуют только натуральные числа  х больше или равно 0

получаем

при  :  A=0 X=42

при  : A=1 решения – не целые числа

при  :A=2 X =62

при  :A=3.4.5.6.7.8 решения – не целые числа

таким образом, верный ответ: 6, 42.

Непонятно, что за "надписи".

Предположим, что

1. "бабушка попросила"

2. "взяла лукошко"

3. "подошла к кусту"

4. "сорвала ягоду"

5. "сварили варенье"

тогда логика задачи будет следующей

 

бабушка попросила

Если Маша согласилась тогда

      взяла лукошко

      подошла к кусту

      Если куст с ягодами Тогда

          Пока (на кусте есть ягоды) и (лукошко пустое) Цикл

                  сорвала ягоду

          КонецЦикла

      КонецЕсли

      сварили варенье

КонецЕсли

 

В принципе, если несколько кустов, нужен цикл обхода по кустам пока не наполнится лукошко.

var i,s,p:integer; a:array [1..100] of integer;

begin 

s:=0; p:=0;

writeln('Vvedite masiv a:'); 

for i:=1 to 10 do begin

write('a[',i,']=');

readln(a[i]);

end;

for i:=1 to 10 do begin

if a[i]>0 then s:=s+a[i]; 

end;

s:=s*2;

writeln('Udvoennaya suma polozhitelnih elementov=',s);

writeln('Indexi elementov kotorie bolshe prediduschego:');

writeln;

for i:=2 to 10 do begin

if a[i]>a[i-1] then write(i,', ');

end;

for i:=2 to 10 do begin

if ((a[i]>=0) and (a[i-1]>=0)) or ((a[i]<0) and (a[i-1]<0)) then p:=p+1;

end;

writeln;

if p>0 then writeln('Masiv imeet pari sosednih elementov s odnakovimi znakami') else  writeln('Masiv ne imeet pari sosednih elementov s odnakovimi znakami'); 

readln(s);

end.