Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Serenael666
14.02.2022 10:28 •
Информатика
с информатикой! 3,5,7,9,11 номера
Заранее
👇
Увидеть ответ
Открыть все ответы
Ответ:
gfsfsdcxz
14.02.2022
Uses graph; var gd,gm,c,i:integer; p:array[1..12] of Pointtype; begin gd:=detect; initgraph(gd,gm,''); setcolor(10); circle(340,105,50); Setfillstyle(1,10); fillellipse(340,105,50,50); setcolor(12); circle(290,170,50); Setfillstyle(1,12); fillellipse(290,170,50,50); setcolor(13); circle(390,190,50); Setfillstyle(1,13); fillellipse(390,190,50,50); p[1].x:=240;p[1].y:=190; p[2].x:=440;p[2].y:=190; p[3].x:=440;p[3].y:=240; p[4].x:=345;p[4].y:=265; p[5].x:=345;p[5].y:=365; p[6].x:=440;p[6].y:=390; p[7].x:=240;p[7].y:=390; p[8].x:=335;p[8].y:=365; p[9].x:=335;p[9].y:=265; p[10].x:=240;p[10].y:=240; p[11].x:=p[1].x;p[11].y:=p[1].y; setcolor(11); moveto(p[1].x,p[1].y); for i:=1 to 11 do lineto(p[i].x,p[i].y); Setfillstyle(1,11); fillpoly(11,p); readln end.
4,8
(58 оценок)
Ответ:
akzhanovarnai2
14.02.2022
Uses graph; var gd,gm,c,i:integer; p:array[1..12] of Pointtype; begin gd:=detect; initgraph(gd,gm,''); setcolor(10); circle(340,105,50); Setfillstyle(1,10); fillellipse(340,105,50,50); setcolor(12); circle(290,170,50); Setfillstyle(1,12); fillellipse(290,170,50,50); setcolor(13); circle(390,190,50); Setfillstyle(1,13); fillellipse(390,190,50,50); p[1].x:=240;p[1].y:=190; p[2].x:=440;p[2].y:=190; p[3].x:=440;p[3].y:=240; p[4].x:=345;p[4].y:=265; p[5].x:=345;p[5].y:=365; p[6].x:=440;p[6].y:=390; p[7].x:=240;p[7].y:=390; p[8].x:=335;p[8].y:=365; p[9].x:=335;p[9].y:=265; p[10].x:=240;p[10].y:=240; p[11].x:=p[1].x;p[11].y:=p[1].y; setcolor(11); moveto(p[1].x,p[1].y); for i:=1 to 11 do lineto(p[i].x,p[i].y); Setfillstyle(1,11); fillpoly(11,p); readln end.
4,5
(12 оценок)
Это интересно:
П
Питомцы-и-животные
10.09.2021
Как разводить лягушек: советы для начинающих...
О
Образование-и-коммуникации
21.01.2020
10 способов усовершенствовать свой этикет в электронной почте...
П
Путешествия
23.02.2023
Как развить туристический бизнес: советы от экспертов...
Д
Дом-и-сад
17.04.2023
Как правильно покрасить древесину: советы от профессионалов...
О
Образование-и-коммуникации
23.07.2020
Как определить медиану множества: ключевые понятия и методы расчёта...
О
Образование-и-коммуникации
18.04.2023
Как заставить коллегу перестать указывать вам, как делать вашу работу: советы по установлению границ, коммуникации и уверенности в себе...
З
Здоровье
05.05.2023
Как правильно лечить разрыв кисты яичника?...
С
Семейная-жизнь
09.02.2020
Все, что вам нужно знать о последних неделях беременности...
О
Образование-и-коммуникации
01.09.2020
Как нарисовать банан: подробная инструкция для начинающих...
С
Стиль-и-уход-за-собой
07.05.2020
Правильный выбор парика: все, что вам нужно знать...
Новые ответы от MOGZ: Информатика
FeDChannelYT
20.06.2021
Чи можуть існувати дві різні поштові скриньки з однаковими іменами на різних поштових серверах?...
LuKи
31.07.2021
решить задачи хоть 2 или по информатике ...
un5gao
05.05.2022
қазақстан баспагерлері Майндағы Франкфуртта өтетін Халықаралық кітап жәрменкесіне қатысу үшін қазақша хат дайындады. Оны аудармашылар неміс тіліне аударғанда ақпарат көлемі...
Арина999111
12.02.2020
Древний шифр ограничение по времени на тест 2 секунды ограничение по памяти на тест 64 мегабайта ввод стандартный ввод вывод стандартный вывод Одним из самых старых известных...
alex270502
04.12.2020
Написать программу к следующему : вывод чисел от 75 до 5 кратных ! заранее огромное...
sveta998
10.05.2023
Логика! 8. про студентов а, в, с, д на вопрос о том, кто из них играет в шахматы, получены следующие три ответа: а) если а или в играет, то с не играет; б) если в не играет,...
valeralch
27.04.2023
Pythone ! дан массив размера n. вывести его элементы в обратном порядке....
lolSashalolo
05.04.2023
Дано а=70 в 10 степини b=100 в 8 степени какое из чисел с записаных в двоичной системе отвечает условию b...
Гульжа1234
05.04.2023
Даны два натуральных числа a и b создайте блок схему вычисления суммы этих чисел, если они четные...
xxxtentacionxxx1
09.12.2022
Язык программирования: C или C++. Написать программу. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать первую половину по возрастанию,...
MOGZ ответил
Прочитайте. Запишите номера предложений, в которых служебные части речи...
Who does what Read and complete the sentesces Use:Peter-Mrs Darling-Wenqy-the...
Весть - это сообщение 2. Прочитай письмо-весть. Здравствуйте, ребята!...
111111111111111111111111111...
в течение 40 минут желательно в рукописном варианте...
Ұлттық теңгені жасауға канша жылдай уақыт кетті A.2 Б.3 B.1...
Какое слово из данных анаграмм не относится к теме инструменты? а. HRZAANTZ...
Найдите и выпишите из рассказов А.П. Чехова («Пересолил», «Мальчики»,...
7 КЛАСС( значит за ответ 8 или :з) Тут нужно ПОДПИСАТЬ ВСЕ ЧАСТИ РЕЧИ;-;...
Помилку в написанні прикметника допущено в рядку доччин Наталчин Ольжин...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ