Поделитесь своими знаниями, ответьте на вопрос:
Встаром замке есть длинный каменный коридор, представляющий собой прямоугольник 2x52 клеток. каждая клетка – это комната. вход в коридор ведет сразу в комнату номер 1, двери есть между любыми двумя комнатами, соседними по стороне, выход находится в комнате номер 104 (см. рисунок привидение влетело в коридор через вход, полетало по комнатам и вылетело через выход (через стены привидение не проходило, только через двери). в комнате №1 привидение было один раз, в комнате №2 два раза, в комнате №3 три раза, …, в комнате №103 — 103 раза. сколько раз привидение побывало в комнате №104?
GraphABC;
var
i: word; //Было предпочтительнее использовать byte,
//ведь от 3 до 7 считаем, но тип word старее,
//а к byte могут придраться
begin
SetBrushColor(clBlue); //Проставляем цвет кисти, я не
//нашёл функции рисования круга,
//где можно было бы указать цвет
for i := 3 to 7 do
begin
FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
sleep(500); //Поскольку круги в конечном счёте всё равно
//затираются более большими, будем выводить
//с задержкой
end;
end.