Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
yoperesete
04.08.2022 02:12 •
Информатика
Выполнить программу в программе Scratch
Есть условия и сцена как говориться
Но надо усложнить Фото для образца и прислать фото мне
👇
Увидеть ответ
Открыть все ответы
Ответ:
gfsfsdcxz
04.08.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
04.08.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 оценок)
Это интересно:
К
Компьютеры-и-электроника
11.09.2020
Как сделать GIF анимацию из видео в Photoshop CS5: шаг за шагом...
С
Стиль-и-уход-за-собой
27.10.2021
10 простых способов быть привлекательной...
К
Компьютеры-и-электроника
04.03.2021
Как добавить фон на веб-страницу: простые шаги, которые помогут улучшить визуальное восприятие...
К
Компьютеры-и-электроника
30.03.2020
Секреты изменения списка близких друзей Facebook на iPhone и iPad...
С
Стиль-и-уход-за-собой
29.07.2020
Как замаскировать прыщик с помощью зеленого консилера: советы и рекомендации...
С
Стиль-и-уход-за-собой
13.07.2021
Как правильно мыть волосы: советы от профессионалов...
Д
Дом-и-сад
11.07.2020
Как быстро и эффективно очистить вентиляционное отверстие для сушилки одежды?...
Х
Хобби-и-рукоделие
15.02.2022
Как состарить дерево: советы для создания эффекта возраста...
13.09.2021
Как всегда выигрывать спор...
К
Компьютеры-и-электроника
09.07.2020
Как уничтожить жесткий диск: советы и рекомендации...
Новые ответы от MOGZ: Информатика
ксениякейт
09.02.2021
Дано двузначное число n. Определить больше ли числа 9 сумма его цифр? ОЧЕНЬ Паскаль...
wereweek777
28.05.2021
решить задание, расписав формулы для расчёта задания в exсel...
Nikaaazhh
20.05.2023
Phyton:Даны натуральное число N и вещественное число X. Вычисли: 1+x+x^2/2!+x^3/3!+...+x^n/n! Ввод: 3 1 Ввод: 3 3...
2285811
19.10.2022
Abc pascal 2.05. дан одномерный массив в(n). найти наименьший элемент одномерного массива, больший заданного числа a и определить его местоположение в массиве....
Эрюсик
30.05.2023
Дан одномерный массив a(n). отсортировать массив по убыванию. найти количество элементов массива, больших заданного числа с....
omanivchuk
30.05.2023
Сколько чисел, которые не делятся на три и на пять находится до числа 2019?...
буду1
06.12.2022
Из подготовки к тесту по информатике. растровое изображение размером 128 128 пикселей занимает 4 кбайт памяти. каково максимально возможное число цветов в палитре изображения?...
Nastlerfight
06.10.2020
Установи соответствии СОР ПО ИНФОРМАТИКИ...
ayupovailinaozhaxj
16.03.2020
Запишите описания переменных ( в одну строку) Паскаль...
meshiydima
13.09.2021
ТЕКСТ ЗАДАНИЯ Соотнеси блок-схему с синтаксисом условного оператора Количество связей: 2   if условие: инструкция 1 инструкция 2 if условие: инструкция 1 else: инструкция 2 Назад...
MOGZ ответил
НАДО РЕШИТЬ В ТЕЧЕНИЕ 20 МИНУТ...
Я предложении : память противостоит уничтожающей силе времени содержится: 1) Олицетворение...
Паркетная доска продаётся в упаковках по 1212 штук. Сколько упаковок надо купить?...
При растений опылению ветром наличее цветков...
Решите систему двух уравнений. В ответ запишите сумму всех х и у...
Порівняйте живлення грибів - сапротрофів і паразитів....
.Написать мини-сочинение (рассуждение) на тему«Мы строим будущее России».(5-6 предложений...
Что больше? Дробь 5/6 или дробь 7/9...
Почему все парни и девушки Берендеева царства были недовольны Снегурочкой? Дайте...
Решите уравнение 2x-5 3-5x 2- (нижняя черта) =(нижняя черта) 6 4...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ