Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ilchumakovsky1
10.05.2021 01:20 •
Информатика
Паскаль в центре окна (640х400) нарисовать окружность радиусом 40 и закрасить её красным цветом
Показать ответ
Ответ:
Камелек
07.10.2020 03:07
Program circle;
uses graphabc;
var
x:integer = 640;
y:integer = 400;
r:integer = 40;
begin
setwindowsize(x,y);
setpencolor(clblack);
setpenwidth(3);
DrawCircle(x div 2,y div 2, r);
setbrushcolor(clred);
FillCircle(x div 2,y div 2, r)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alekskholod01
09.08.2022 02:51
Какое свойство придает информации электронный хранения? 1. динамичность2. достоверность3. полезность4. ограниченность...
Анимешник0
12.05.2020 03:07
Даны два целых числа: a, b. проверить истинность высказывания: «справедливы неравенства a 2 и b≤3». надо решить на с++ с boll...
surikat235
07.12.2021 16:01
Нужно быстро решить 9 и 10 , расписать как решать!...
larikhambekov
01.06.2022 01:29
Влазарусе. вычисление по формуле x=(y^2/a)-1,y - число от 0 до 50,а - число введенное с клавиатуры...
Юра754
26.05.2023 20:03
Заполните таблицу: дата, события, последствия для стран фашистского блока \ стран запада...
Vadim43k
26.05.2023 20:03
Нужно примеры гиперболы,литоты,инверсии,умолчания,эпитета,эпифора,эллипсиса,метонимии,метафоры,анафоры,антитезы из медного всадника а.с.пушкина....
unicorncolever
26.05.2023 20:03
Подобрать и записать три-четыре слова с разделительным ъ имеющим схему приставка корень окончание...
Avenrop236
26.05.2023 20:03
Уменя есть 5% раствор соли 30 мл. сколько мне нужно воды и сколько соли?...
Женечка180510
26.05.2023 20:03
Что должен знать и уметь рачительный хозяин?...
jpjpjp
26.05.2023 20:03
Не используя формулу корней найдите корни квадратного уравнения х^2-4х-5=0...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses graphabc;
var
x:integer = 640;
y:integer = 400;
r:integer = 40;
begin
setwindowsize(x,y);
setpencolor(clblack);
setpenwidth(3);
DrawCircle(x div 2,y div 2, r);
setbrushcolor(clred);
FillCircle(x div 2,y div 2, r)
end.