Ниже записан алгоритм. Получив на вход число х, этот алгоритм печатает два числа L и M. Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 3, а потом 120.

var х, L, M: integer;
begin
readln (x) ;
L: = 0 ; M : = 1;
while x>0 do
begin
L : = L + 1 ;
M : = M*(x mod 8) ;
х : = x div 8;
end ;
writeln(L); write(M);
end.

1

Ответы и объяснения

  • Tlalok
  • почетный грамотей
2013-03-04T22:34:25+04:00

Ответ: 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.