1). укажите наибольшее из чисел х, при вводе которых алгоритм печатает сначала 2, а потом 11.
var x, a, b: longint;
begin
readln(x);
a: =0; b: =1;
while x > 0 do begin
a: = a + 1;
b: = b * (x mod 100);
x: = x div 100;
end;
writeln(a); write(b);
end.
2). укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 5, а потом 2.
var x, l, m: longint;
begin
readln(x);
l: =0; m: =9;
while x > 6 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.
