Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Yaroslava1902
04.03.2020 19:21 •
Информатика
Создать дом в программе pascal abc !
Показать ответ
Ответ:
12unicorn12
14.07.2020 06:44
Uses GraphABC;
begin
Pen.Color := clblue;
brush.Color :=clRed;
DrawRectangle(100,200,400,400);
fillRect(100,200,400,400);
moveto(90,200);
lineto(100,150);
lineto(400,150);
lineto(410,200);
lineto(90,200);
FloodFill(100,180,clblue);
brush.Color := clCyan;
fillRect(150,250,200,300);
fillRect(250,250,300,300);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
oksanaverner00
24.10.2020 07:01
Расположите в порядке возрастания следующие величины, указывая в ответе их буквенные обозначения (например, БАГЕДВ): A) 47 битовБ) 6 байтов B) 4099 КбайтГ) 4 МбайтД) 11265...
Arina8987
13.10.2021 19:56
Кто шарит Паскаль - выручайте ... PASCAL...
klimenkol21
09.03.2022 18:53
Используя программу MS Excel постройте и проанализируйте регрессионную модель данных в таблице. Неделя 1 2 3 4 5 6 7 8 9 10 Количество поступивших упаковок продукции 9 16 20...
pollypron
07.09.2022 02:36
Заменить в строке Мама мыла раму буквы а на знак _ . Вывести полученный массив на экран (в HTML)...
Иванчик1111
07.05.2020 02:43
Дан первый элемент массива С, вычисленный случайным образом. Сформировать массив С(N) в котором каждый последующий элемент массива меньше предыдущего на удвоенную размерность...
kuznetsovapoli
05.06.2023 11:08
Як додати логотип на сайт?...
Julydd
26.09.2022 04:38
Программа на Паскале имеет вид: Var x, y: integer; Begin Readln (x); Readln (y); s := 0; if x y Then s := x + 10 Else s := y + 10; Writeln (s); End. Ввели исходные данные:...
VetaRo
08.02.2022 04:06
32768 бит это сколько байт и килобайт...
k456789
18.02.2021 05:25
Решите задачу по информатике...
лиза1585
07.01.2020 19:53
Ребята, добрый вечер с вопросом по истории Беларуси (8 класс). Какие исторические события коснулись жителей вашей местности? Как они отразились на судьбах ваших земляков? (г....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Pen.Color := clblue;
brush.Color :=clRed;
DrawRectangle(100,200,400,400);
fillRect(100,200,400,400);
moveto(90,200);
lineto(100,150);
lineto(400,150);
lineto(410,200);
lineto(90,200);
FloodFill(100,180,clblue);
brush.Color := clCyan;
fillRect(150,250,200,300);
fillRect(250,250,300,300);
end.