Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 4.
Var X, l, m: integer;
begin
readln(x);
L:=0;
M:=9;
while x >
5 do begin
L:= L +
1;
if M >
(x mod 10) then M:= x mod 10;
x:= x div 10;
end;
writeln(L);
write(M);
end.
Ниже
записана программа. Получив на вход
число
,
эта программа печатает два числа,
и
.
Укажите наименьшее из таких чисел
,
при вводе которых алгоритм печатает
сначала 3, а потом 7.
Var X, l, m: integer;
begin
readln(x);
L:=0;
M:=0;
while x >
5 do begin
L:= L +
1;
if M <
(x mod 10) then M:= x mod 10;
x:= x div 10;
end;
writeln(L);
write(M);
end.
