Уроки на неделе
1.Понедельник
1.1.Информатика
1.2.Русский язык
1.3.Литература
2.Вторник
2.1.Английский язык
2.2.Биология
2.3.География
3.Среда
3.1.История России
3.2.ОБЖ
3.3.Физкультура
4.Четверг
4.1.Обществознание
4.2.Черчение
4.3.Религии России
5.Пятница
5.1.Русский язык
5.2.Информатика
5.3.Физкультура
6.Суббота
6.1.МХК
6.2.Физика
6.3.Алгебра
P.S. думаю, что это можно назвать многоуровневым списком
3план анимации 4 подготовка онимации в действ
Var s,k,m:integer;
begin
write('s = ');
readln(s);
k:=s div 800;
m:=s mod 800;
writeln('Кругов: ',k,' и ещё метров: ',m);
end.
Пример:
s = 5020
Кругов: 6 и ещё метров: 220
Не совсем понимаю,что тебе нужно,но думаю,тебе помогут вот эти команды:
использовать Робот
алг Квадрат
нач
закрасить
вправо
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
влево
закрасить
влево
закрасить
вверх
закрасить
кон