Ответы на вопрос:
Когда нажат Флажок
очистить
опустить кисть
задать цвет кисти: Красный
задать размер кисти: Твой размер
Переместиться в х: Твоя позиция по координате х, твоя позиция по координате у
Повернуть в направлении 90
Повернуть на 40 градусов
Повторить 120 раз{
Переместиться на 4 шага
Повернуться на 3 градуса
}
Поднять кисть
Норм? Можно еще повторить с беск циклом, а чтобы получить 2 круга просто выполни скопируй этот же код и сделай такой же круг только меньше и задай ему цвет Жёлтый.
Var n, s: integer; begin readln(n); n : = abs(n); while n > 0 do begin s : = s + n mod 10; n : = n div 10; end; writeln(s); end. универсальный вариант, все равно сколько значное число
Популярно: Информатика
-
Juliana241402.04.2021 21:28
-
Поэзия17.04.2021 23:27
-
Ленабогатова122.11.2020 23:40
-
KraRom13.02.2022 07:37
-
omarova0617.05.2020 23:38
-
Godzula26.02.2020 08:57
-
Petrov20010406.06.2021 16:26
-
Golpio10.01.2023 17:55
-
shariktop00002.11.2022 07:39
-
Dani0048002.07.2021 17:50