Получив на вход число 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.