Помогите, нужно составить программу в PASCAL ABC, которая будет рисовать 5 ёлок.
Копировать с сайтов нет смысла, так как везде неверно. Главное условие, нужно сделать программу без ввода переменных. То есть использовать в ней переменные нельзя! Кому не сложно, помогите. Буду признателен. (Если не получится нарисовать именно 5 елок, то нарисуйте одну..главное, чтобы она была правильной)
Я, конечно, не художник, но надеюсь это похоже на ёлки.
uses GraphABC; begin For var i := 0 to 4 do begin SetBrushColor(clGreen); FillPie(80 + 120 * i, 100, 25, -50, -130); FillPie(80 + 120 * i, 115, 40, -50, -130); FillPie(80 + 120 * i, 135, 60, -50, -130); FillPie(80 + 120 * i, 160, 75, -50, -130); SetBrushColor(clBrown); FillRectangle(74 + 120 * i, 234, 86 + 120 * i, 245) end; end.
Если ты забыл ключ то 2 варианта: 1. Ты все удаляешь с него через рекавети 2.Через fastboot ставим кастомное рекавети (twrp cwm), идём по пути /data/system/ и удаляем эти файлики:gesture.key,locksettings.db,locksettings.db-wal,locksettings.db-shm
(ещё возможно: вход из спящего режима, вход в систему после включения компьютера (в этом случае информация загружается в оперативную память для запуска Windows))