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

Информатика

Памфилий

18 ноября, 06:30

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

+5

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