Получив на вход число X, этот алгоритм печатает два числа:L и M. Укажите наибольшее число Х, при вводе которого алгоритм печатает сначала 2, потом 4. var x,L, M,Q: integer;
begin
readln(x);
Q:=2;
L:=0;
while x>=5 do
begin
L:=L+1;
x:=x div Q;
end;
M:=x;
if M begin
M:=L;
L:=x;
end;
writeln(L);
writeln(M);
end.

ответ: 428

Объяснение:

var

 x, L, M, i:integer;

begin

 for i := 4096 downto 1 do

 begin

   L := 0;

   M := 1;

   x := i;

   while x > 0 do

   begin

     Inc(L);

     M := M *(x mod 8);

     x := x div 8;

   end;

   if (L = 3) and (M = 120) then

   begin

     WriteLn('x = ', i);

     break;

   end;

 end;

 readln;

end.