Регистрация
beka1098
25.02.2023 06:07
Информатика
Есть ответ 👍

Робот должен пройти из точки А в точку В и закрасить клетки, под которыми нет стены

Робот находится под стеной, в которой есть проходы, закрасить эти клетки "на чердаке"

249
305
Посмотреть ответы 1

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

boom1980
boom1980
4,4(60 оценок)

Объяснение:   Var

  A,B:longint;

Begin

B:=1;

Read(A);

While A > 0 do

  Begin

  B:=B*10+(A mod 2);

  A:=A div 2

  End;

While B div 10 > 0 do

  Begin

  A:=A*10+(B mod 10);

  B:=B div 10

  End;

Write(A)

End.

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