Lib2019. (c++) в поисках для третьего тура олимпиады netoi-2018 два члена жюри решили посетить помещение, - id972883420220824 от Andreichik228 24.08.2022 20:42

Question

Информатика: Lib2019. (c++) в поисках для третьего тура олимпиады netoi-2018 два члена жюри решили посетить помещение, где хранятся бумажные архивы старых олимпиад «догугливской» эпохи. архив размещен в просторном зале в форме многоугольника без самопересечений (но не обязательно выпуклый). коллеги решили, что безопаснее будет не терять друг друга из виду. на каком максимальном расстоянии могут находиться коллеги, чтобы не терять друг друга из виду и не выходить за пределы архива? члены жюри видят друг друга,

Andreichik228 · Accepted Answer

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
x, y, a, b, k: integer;

begin
k:=10000;
repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8);
end.

MOGZ ответил