Робот должен закрасить поле размером 9х9 «в клетку».программа abc pascal. буду очень благодарна!
Только в конце символ "\" уберите, он случайно нажался
спасибо большое
Пожалуйста. Добавлю тогда в ответ.
Ответы на вопрос
Ответил Ziorar
0
Программа для исполнителя Робот в PascalABC.NET:
Uses Robot;
begin
Field (9,9);
While FreeFromleft do
left;
While FreeFromUp do
up;
loop 5 do
begin
loop 4 do
begin
paint;
right;
right;
end;
paint;
if FreeFromDown then
begin
While FreeFromleft do
left;
down;
down;
end;
end;
end.
Приложения:
Новые вопросы
Биология,
1 год назад
Математика,
1 год назад
Английский язык,
1 год назад
Английский язык,
7 лет назад
Uses Robot;
Begin
Field (9,9);
While FreeFromleft do
left;
While FreeFromUp do
up;
loop 5 do
begin
loop 4 do
begin
paint;
right;
right;
end;
paint;
if FreeFromDown then
begin
While FreeFromleft do
left;
down;
down;
end;
end;
end.\