Readln(x);. if M < (x mod 10) then begin

L:=0; M:=0;

while x > 0 do begin

L:=L+1;

if M < (x mod 10) then begin

M:=x mod 10;

End;

x:= x div 10;

End;

Writeln(L); write(M);

End.

Решение:

11) для решения задачи необходимо понять, что делает эта программа

12) если это не видно сразу, можно выполнить ручную прокрутку для какого-то простого числа, например, для числа 251:

оператор	условие	x	L	M
readln(x);			?	?
L:=0; M:=0;
while x > 0 do…	251 > 0? да
L:=L+1;
if M<(x mod 10) then…	M <(251 mod 10)? да
M:=x mod 10;
x:=x div 10;
while x > 0 do…	25 > 0? да
L:=L+1;
if M<(x mod 10) then…	M <(25 mod 10)? да
M:=x mod 10;
x:=x div 10;
while x > 0 do…	2 > 0? да
L:=L+1;
if M<(x mod 10) then…	M <(2 mod 10)? нет
x:=x div 10;
while x > 0 do…	0 > 0? нет
writeln(L); write(M);

13) можно догадаться, что в результате работы программы в переменной L окажется число цифр числа, а в переменной M – наибольшая цифра, но это предположение нужно постараться доказать

14) нужно вспомнить (и запомнить), что для целого числа остаток от деления на 10 (x mod 10) – это последняя цифра в десятичной записи числа, а целочисленное деление (x div 10) отсекает последнюю цифру, то есть из 123 получается 12

15) рассмотрим цикл, число шагов которого зависит от изменения переменной x:

while x > 0 do begin

...

x:= x div 10; { отсечение последней цифры }

End;

здесь оставлены только те операторы, которые влияют на значение x

16) из приведенного цикла видно, что на каждом шаге от десятичной записи x отсекается последняя цифра до тех пор, пока все цифры не будут отсечены, то есть x не станет равно 0; поэтому цикл выполняется столько раз, сколько цифр в десятичной записи введенного числа

17) на каждом шаге цикла переменная L увеличивается на 1:

L:=L+1;

других операторов, меняющих значение L, в программе нет; поэтому после завершения цикла в переменной L действительно находится количество цифр

18) теперь разберемся с переменной M, которая сначала равна 0; оператор, в котором она меняется, выглядит так:

if M < (x mod 10) then begin

M:=x mod 10;

End;

учитывая, что x mod 10 – это последняя цифра десятичной записи числа, получается что если эта цифра больше, чем значение M, она записывается в переменную M;

19) этот оператор выполняется в цикле, причем выражение x mod 10 по очереди принимает значения всех цифр исходного числа; поэтому после завершения циклам в переменной M окажется наибольшая из всех цифр, то есть наша догадка подтверждается

20) итак, по условию задачи фактически требуется найти наибольшее трехзначное число со старшей цифрой 7; очевидно, что это 777.

21) ответ: 777.

Возможные ловушки и проблемы: · это очень неплохая задача на понимание, тут достаточно сложно «вызубрить» метод решения, можно только освоить последовательность (системность) анализа · ручной прокрутки в такой задаче недостаточно, по её результатам можно угадать алгоритм, но можно и не угадать; в критическом случае можно сделать ручную прокрутку для нескольких чисел им попытаться понять закономерность

Ещё пример задания:

Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 120.

var x, L, M: integer;

Begin