Добавил:
hunter__3211
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:робот1
.pas uses
Robot;
begin
Task('count15');
while not wallFromRight do
begin
paint;
right;
if freeFromRight then
begin
right;
if freeFromRight then
begin
right;
paint;
end;
end;
end;
end.
Robot;
begin
Task('count15');
while not wallFromRight do
begin
paint;
right;
if freeFromRight then
begin
right;
if freeFromRight then
begin
right;
paint;
end;
end;
end;
end.
Соседние файлы в предмете Алгоритмические языки и основы программирования