Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
mrdrozdovoy228
10.12.2021 12:46 •
Информатика
Составь программу в авс паскаль так, чтобы в результате получился рисунок
Показать ответ
Ответ:
Блинь
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 оценок)
Популярные вопросы: Информатика
Anastasiua005
03.12.2021 15:40
Яничего не понимаю. много . умоляю. нужно на листе записать ответы в цифрах в столбик....
Doxlaz
22.11.2021 22:33
Майнкрафт. есть ли команда, чтобы моментально собрать все вещи (дроп) в сундук? если есть, напишите какая. заранее ....
svetamoroz73
24.09.2021 10:53
Некоторый объект выполнять определенный набор команд \...
yulianyaght
23.05.2021 05:53
Установите связь эпиграфов в каптанской дочке с содержанием глав....
drswag12312
23.05.2021 05:53
Пользуясь правилом знаков, запишите без скобок и вычислите: 1) (-14,35) - (-53,5) - (+21,3) - (-16 3/20) 2) ( -60) - (-15,9) - (+8,2) - (-23,3) 3) 24,6+ (-35,9) - (-6,5) + (-5,2)...
26dura
23.05.2021 05:53
Какой вред и какую пользу приносят растениям сада насекомые?...
alisabugor
23.05.2021 05:53
Можно ли просклонять слово мебель ?...
darya4ern1
23.05.2021 05:53
Напишите письмо о том как мы посещали блошиный рынок( в неофициальной форме, можно на )...
sudak7
23.05.2021 05:53
Чем отличаются митохондрии тренированного человека от нетренированного?...
matveyking12345
23.05.2021 05:53
Как можно доказать это предложение? а верное произношение-признак культуры...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.