Ниже записан алгоритм. Получив на вход число х, этот алгоритм печатает два числа L и M. Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 3, а потом 120. var х, L, M: integer; begin readln (x)...
Ниже записан алгоритм. Получив на вход число х, этот алгоритм печатает два числа 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.
Гость
Ответ(ы) на вопрос:
ГостьОтвет: 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.
Не нашли ответ?
Похожие вопросы