Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 409
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.
- Дата:
- Категория: Информатика » Алгоритмы: Робот
