Добавил:
hunter__3211
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:РОБОТ2
.pas uses
Robot;
begin
Task('count4');
var K: byte := -1;
while wallFromDown do
begin
right;
inc(k);
end;
if not wallFromDown then
begin
down;
left;
end;
//Возврат в Нужную точку
left;
for var i := 1 to (k - 1) do left;
end.
Robot;
begin
Task('count4');
var K: byte := -1;
while wallFromDown do
begin
right;
inc(k);
end;
if not wallFromDown then
begin
down;
left;
end;
//Возврат в Нужную точку
left;
for var i := 1 to (k - 1) do left;
end.
Соседние файлы в предмете Алгоритмические языки и основы программирования