Ниже записан алгоритм. Получив на вход число х, этот алгоритм печатает два числа 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.
More Questions From This User See All
Answers & Comments
Verified answer
Ответ: 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.