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.

TruckThorEast    2   07.01.2020 22:04    0