Ответ:
ок не буду))))))))))))))))))
/////////////////Pascal abc////////////////
1файл- цикл for
2файл-цикл while
3 файл -цикл repeat
Так как просто прямая не возможна, то
проверить есть ли преграда по прямой с права (подъем)
если нет, то спуститься вниз со смещением в право, рассчитав новое положение.
закрасить клетку с предыдущими координатами
если препятствие есть, то выполнить подъем со смещением в право, рассчитав новое положение
закрасить клетку с предыдущими координатами.
На взять и две монеты положить на весы ( любые) дальше 2 варианта: либо две монеты равны в весе, тогда фальшивая третья, либо одна будет легче и она будет фальшивой