Передвинуть черные шары на место белых, а белые на место черных - Pascal
Формулировка задачи:
Помогите пожалуйста решить данную задачу на языке Pascal.
Вдоль доски расположены 7 лу-нок, в которых лежат 3 черных и 3 белых шара.
Передвинуть черные шары на место белых, а белые на место черных. Шар можно передвигать либо в соседнюю с ним пустую лунку, либо в пустую лунку, находящуюся непосредственно за бли-жайшим шаром.
Заранее благодарен! =)
Решение задачи: «Передвинуть черные шары на место белых, а белые на место черных»
textual
Листинг программы
begin
writeln('БББ.ЧЧЧ');
writeln('БББЧ.ЧЧ');
writeln('ББ.ЧБЧЧ');
writeln('Б.БЧБЧЧ');
writeln('БЧБ.БЧЧ');
writeln('БЧБЧБ.Ч');
writeln('БЧБЧБЧ.');
writeln('БЧБЧ.ЧБ');
writeln('БЧ.ЧБЧБ');
writeln('.ЧБЧБЧБ');
writeln('Ч.БЧБЧБ');
writeln('ЧЧБ.БЧБ');
writeln('ЧЧБЧБ.Б');
writeln('ЧЧБЧ.ББ');
writeln('ЧЧ.ЧБББ');
writeln('ЧЧЧ.БББ');
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д