Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
АлсушкаСушка
24.03.2023 00:18 •
Информатика
Как по икт сделать снеговика в abc паскаль напишите программу
Показать ответ
Ответ:
sentyakovv
02.10.2020 09:49
Program sneg;
uses graphABC;
beginsetpenwidth(3);
setwindowsize(400,500);
ellipse(120,350,280,480);
circle(200,300,60);
circle(200,210,40);
line(170,90,230,90);
line(160,180,240,180);
line(170,90,160,180);
line(230,90,240,180);
floodfill(200,173,clblack);
floodfill(200,123,clblack);
setbrushcolor(clblack);
circle(190,200,5);
circle(210,200,5);
line(200,210,220,220);
line(200,220,220,220);
line(200,210,200,220);
floodfill(204,214,clblack);
setpenwidth(5);
arc(200,230,10,180,0);
line(70,320,170,250);
line(230,250,330,300);
line(300,450,350,200);
line(350,200,320,140);
line(350,200,340,140);
line(350,200,360,140);
line(350,200,380,140);
line(350,200,400,140);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Danilka9696
09.09.2021 05:52
задай путем перечисления всех элементов множество А, двухзначных чисел кратных 10 и множество B двухзначных чисел кратных 15...
toshaprostakis45
11.08.2021 16:32
пусть m={1,2,3,4,5,6}, k={1,3,5}, p={2,4,6,7,8}.запишите с фигурных скобок область определения истиности предложений...
Xiyneu
21.05.2022 08:46
Нарисовать циклическую блок-схему, где нужно вычислить и вывести сумму всех двузначных чисел до 100....
098714
10.05.2021 20:07
Сколько существует трехзначных чисел, состоящих из цифр 1, 5 и 8?...
zhgulevatanya
21.11.2022 03:34
По заданной функции (¬x1∧¬x2∧¬x3)∨(¬x1∧¬x2∧x3)∨(¬x1∧x2∧¬x3)∨(¬x1∧x2∧x3)∨(x1∧x2∧¬x3). Начертите карту Вейча для функции трех переменных, минимизируйте и запишите МДНФ. В оставшиеся...
Бллллллл
12.04.2023 08:10
В коробке 2 карамельных конфеты и 3 шоколадных. Сергей вытащил конфету. Сколько информации в этом сообщении?...
Помощница07
04.07.2020 02:34
плз, Задание 1. В систему команд исполнителя Водолей входят 6 команд: объем сосуда А равен 3л, сосуда B- 4л. Как получить 2л в одной из ёмкостей, используя не более 4 команд?...
metin2005
20.01.2023 17:14
В государстве 10 городов, и из каждого из них выходит 4 дороги. Сколько всего дорог в государстве?...
Rexis808
22.12.2022 09:43
На рисунке — схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж и К. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует...
индокролбак
11.05.2021 04:07
В книге, набранной 64 символьным алфавитом 10 страниц по 30 строк в 50 символов. Сколько информации в книгах. (В килобайтах)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses graphABC;
beginsetpenwidth(3);
setwindowsize(400,500);
ellipse(120,350,280,480);
circle(200,300,60);
circle(200,210,40);
line(170,90,230,90);
line(160,180,240,180);
line(170,90,160,180);
line(230,90,240,180);
floodfill(200,173,clblack);
floodfill(200,123,clblack);
setbrushcolor(clblack);
circle(190,200,5);
circle(210,200,5);
line(200,210,220,220);
line(200,220,220,220);
line(200,210,200,220);
floodfill(204,214,clblack);
setpenwidth(5);
arc(200,230,10,180,0);
line(70,320,170,250);
line(230,250,330,300);
line(300,450,350,200);
line(350,200,320,140);
line(350,200,340,140);
line(350,200,360,140);
line(350,200,380,140);
line(350,200,400,140);
end.