Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Lagunahey
16.11.2020 08:55 •
Информатика
Составь программу в авс паскаль так, чтобы в результате получился рисунок
Показать ответ
Ответ:
Денис1111111111191
03.07.2020 12:19
Во!
uses graphABC;
var x,y,z,n:integer;
Begin
randomize;
n:=random(1000)+1;
y:=random(n)+123;
x:=random(y)+n;
z:=x+23;
SetWindowSize(n,z);
setbrushcolor (clRed);
Ellipse(z,y,n,x);
floodfill (z,n, clgreen);
line(z,x,z,n);
line(n,y,n,z);
line(x,x,z,n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ззвееррекк
12.12.2020 19:20
Рештить дано: i=16 бит,v(частота дискретизации)=3200 раз/с,i=3500кб найти: t...
vovareket
31.08.2022 11:00
Значение выражения 36^8+6^20-12 записали в системе счисления с основанием 6. сколько цифр 5 содержится в этой записи....
Раммроль
27.06.2020 16:30
4. Что вы можете сказать о массиве, сформированном следующим образом?a) for i:=1 to 10 do a[i]:=randomб) for i:=1 to 20 do a[i]=i;в) for i:=1 to 5 do a[i] :=2*i-1Ребят...
anna199015
05.11.2021 09:12
1. в массиве из 70 целых чисел найти количество элементов, кратных 3 2. проверить, что в массиве ровно 3 одинаковых максимальных числа 3. в массиве удалить все элементы, имеющие нечетные...
VZ1
25.02.2021 08:54
Іі. записати речення. зробити його синтаксичний розбір та морфологічний розбір виділеного слова.(нескошені) легенький вітерець колише по той бік річки нескошені трави....
bayramovelnur
25.02.2021 08:54
Составить вопросы: 1.is,are. 2.nick thomas we mr. greenwood pupils his pet. 3.nice? smart? funny? strong? пример: is nisk brave?...
shcukinalena
25.02.2021 08:54
Таблица: различия в вероучении католической и протестанских церквей...
zroslama
25.02.2021 08:54
Двое поочередно подбрасывают правильную кость. выигрывает тот у кого раньше выпадет шесть очков. определить вероятность выйгрыша для второго игрока....
nekitder
25.02.2021 08:54
При сгорании дров остается немного золы. почему масса дров не равняется массе золы? в каком виде находяться другие продукты?...
mludap
25.02.2021 08:54
Для чего в языке служит предложения?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses graphABC;
var x,y,z,n:integer;
Begin
randomize;
n:=random(1000)+1;
y:=random(n)+123;
x:=random(y)+n;
z:=x+23;
SetWindowSize(n,z);
setbrushcolor (clRed);
Ellipse(z,y,n,x);
floodfill (z,n, clgreen);
line(z,x,z,n);
line(n,y,n,z);
line(x,x,z,n);
end.