Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
NeZnaiYProsto
07.01.2021 10:36 •
Информатика
Нарисуйте цветную кошечку в паскале авс
Показать ответ
Ответ:
lalala106
17.09.2020 08:25
Uses graphABC;beginsetwindowsize(600,500);setbrushcolor(clMedGray);Ellipse(320,30,490,400);Ellipse(120,30,300,400);setbrushcolor(clCream);Ellipse(335,40,480,380);Ellipse(140,40,280,380);setbrushcolor(clMedGray);Ellipse(100,430,500,130);setbrushcolor(clNavy);Ellipse(250,240,200,310);Ellipse(350,240,400,310);setbrushcolor(clwhite);Ellipse(240,270,220,300);Ellipse(360,270,380,300);
setbrushcolor(clblack);Ellipse(270,330,330,370);line(300,370,300,400);Arc(300,280,120,220,-40);
line(50,350,200,350);line(30,340,190,340);line(10,330,180,330);
line(410,330,570,330);line(400,340,560,340);line(390,350,550,350);
line(240,230,220,150);line(230,230,180,80);line(220,230,180,150);
line(360,230,380,150);line(370,230,430,80);line(380,230,430,150);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ассасин32
16.01.2020 21:55
Составьте программу нахождения наибольшего по модулю элемента целочисленного массива A(M,M), кратного 11. (ПАСКАЛЬ!)Нужно, чтобы программа запустилась в PascalABC.net...
daniabloger
05.11.2022 15:12
чень нужно Визначити значення змінної a після виконання операції a=sizeof char;...
hzeslichestno
02.05.2021 08:10
Какой объем памяти необходим для хранения изображения разрешением 2150x3210 точек в режиме 32-битного TrueColor-а? В ответе записать число, выраженное в Мб, при необходимости округлить...
mariyburova2001
03.09.2021 21:00
Вшкольной библиотеке 16 стеллажей с книгами, на каждом стеллаже 8 полок. библиотекарь сообщил, что нужная книга на 5 стеллаже, на 3 сверху полке....
erenyeger2398
04.03.2022 03:05
Порахуйте, скільки число а зустрічається в рядку....
xcp4
22.11.2021 11:47
Изучи список примитивов, расположенных на сцеконусов....
Lunitoes
07.01.2020 16:35
Задание 3: Определите истинность или ложность высказываний Высокая доступность в сложных объектах модель не соответствует объектам из реального мира Не обладают возможностями по созданию...
vladdubrovskiy1
06.06.2020 04:05
будет круто если оформите в тетрадке) если что все 3 задания...
lyubalarina04
25.10.2021 03:06
№91. Encryption information is…: A) The process of its transformation, in which the content of the information becomes incomprehensible to non-authorized subjects B) A conversion process...
Королина2022
11.10.2022 00:55
Найди закономерность последовательности чисел. Впиши пропущенное число.2; 5; 14; 41; 122; ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
setbrushcolor(clblack);Ellipse(270,330,330,370);line(300,370,300,400);Arc(300,280,120,220,-40);
line(50,350,200,350);line(30,340,190,340);line(10,330,180,330);
line(410,330,570,330);line(400,340,560,340);line(390,350,550,350);
line(240,230,220,150);line(230,230,180,80);line(220,230,180,150);
line(360,230,380,150);line(370,230,430,80);line(380,230,430,150);
end.