Регистрация
Mari666a
01.07.2021 19:32
Информатика
Есть ответ 👍

Нужно запустить этот код и сделать скрин и кода и окна, которое должно получиться. ​

222
461
Посмотреть ответы 1

Ответы на вопрос:

14062006123
14062006123
4,7(58 оценок)

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

Популярно: Информатика