Микропроцессор дегеніміз -​

Var k, s, i: integer;beginreadln(k);s:=k mod 10;i:=0;while k<>0 do begin
k:=k div 10;
if s<k mod 10 then begins:=k mod 10;i:=0;end;if s=k mod 10 theni:=i+1;end;writeln(i);end.
В переменной k вводим число, в переменной s храним максимальную цифру, в переменной i подсчитываем вхождение максимальной цифры в число

var k, s, i: integer;beginreadln(k);//вводим числоs:=k mod 10;//предполагаем что последняя цифра - максимальнаяi:=0;// инициализируем счетчик нулемwhile k<>0 do begin//цикл идет до тех пор пока не закончатся цифры в k
k:=k div 10;// отбрасываем цифру от числа
if s<k mod 10 then //если s < последней цифры kbegins:=k mod 10;//то меняем нашу максимальную цифру на новуюi:=0;// и сбрасываем счетчикend;if s=k mod 10 then// если цифра в числе равна максимальной цифреi:=i+1;//прибавляем 1 к счетчикend;writeln(i);//выводим количество вхождений максимальной цифры end.

2018 2020 1931 2109

Объяснение:

Последние элементы n-й строки образуют последовательность a(n)=n^2.

44<<45 ⇒ число 2019 расположено в 45=й строке.

Первые элементы n-й строки образуют последовательность b(n)=(n-1)^2+1.

(45-1)^2+1=1937 ⇒ 2019 не является первым элементом строки.

Поскольку число 2019 не является ни первым, ни последним элементом строки, у числа 2019 существует соседнее слева (2018) и  соседнее справа (2020) число.

Для любого элемента n-й строки справедливо равенство c(n)-c(n-1)=(n-1)*2

Вычисляем верхнее соседнее число.

(45-1)*2=88

2019-88=1931

Вычисляем нижнее соседнее число.

(46-1)*2=90

2019+90=2109