Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
D1999d3004
03.03.2021 18:46 •
Информатика
Как нарисовать олимпийские кольца в pascalabc?
Показать ответ
Ответ:
Dan363
02.07.2020 22:30
Uses graphabc;
var x,y:integer;
begin
x:=100;
y:=100;
setpenwidth(8);
setpencolor(clBlue);
drawcircle(x,y,50);
inc(x,110);
SetPenColor(clBlack);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clred);
Drawcircle(x,y,50);
inc(y,65);
dec(x,165);
SetPenColor(clyellow);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clgreen);
Drawcircle(x,y,50);
inc(x,110);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ulchik4572
01.06.2023 10:52
Определите значение переменной a в результате выполнения фрагмента алгоритма представленного блок схемой, если a = 7,b 49...
illay0409
10.04.2021 06:26
решить Python Ежеминутные автобусы (Время: 2 сек. Память: 128 Мб Сложность: 30%) На автобусную остановку каждую минуту подходит автобус одного из маршрутов. Диспетчерская...
nmio2005
10.02.2022 02:14
Найдите ошибки в записях оператора. Какие операторы записаны неверно? (каждая строка отдельное задание НУЖНО...
M1N1G4M3R1
02.09.2020 19:18
Составьте программу, запрашивающую возраст и отвечающий друг , если возраст введён меньше 16 лет, и отвечающую не знаю тебя в противном случае....
Saeg
18.06.2022 03:25
Какими устройствами, в которых используются флэш-карты, вы пользуетесь? какой у них информационный объём?...
armanpozitiva
15.12.2022 23:45
исправьте ошибки, по возможности перевести...
леон15
12.12.2022 22:58
по физике решить 3 задачи...
МарусяЧешир
01.09.2022 18:06
An Increadible Story Choose an appropriate story style according to the words used in it.The ranch, cowboys, hot sunny weatherA romance/love storyAn adventure storyA...
Kerbenbaeva2003
22.01.2020 03:10
Cоставить 10 вопросов по тексту с ответами скоро сдавать!! Sugar is extracted from the sugar cane and the sugar beet. Cane sugar is manufactured from the sugar cane....
DenisPalashyk
10.01.2023 22:32
Задача №1. По рисунку найти угол СВА....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x,y:integer;
begin
x:=100;
y:=100;
setpenwidth(8);
setpencolor(clBlue);
drawcircle(x,y,50);
inc(x,110);
SetPenColor(clBlack);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clred);
Drawcircle(x,y,50);
inc(y,65);
dec(x,165);
SetPenColor(clyellow);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clgreen);
Drawcircle(x,y,50);
inc(x,110);
end.