Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 539
uses Robot;procedure Row;
begin
while FreeFromRight do
begin Paint; Right; end;
Paint;Down;
while freeFromLeft do left;
end;
begin
field(17,17);
while FreeFromLeft do Left;
while FreeFromUp do Up;
while FreeFromDown do Begin Row; Down; end;
while FreeFromRight do Begin Paint; Right; end;
Paint;
end.
- Дата: 1-12-2020, 11:38
- Категория: Информатика / Алгоритмы: Робот
