Ниже записан алгоритм. Получив на вход число х, этот алгоритм печатает два числа 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.

Question

Информатика

Анна

6 апреля, 17:13

Ниже записан алгоритм. Получив на вход число х, этот алгоритм печатает два числа 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

Ответы (1)

Знаете ответ на вопрос?

Витя · Answer 1

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