Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Masha04131
19.09.2020 22:00 •
Информатика
Cоставить программу вывода на экран 5 олимпийских колец разного цвета
Показать ответ
Ответ:
AnastasiaPonomarenko
19.07.2020 09:00
Uses graphabc;
var x,y,r:integer;
begin
setwindowsize(450,300);
setwindowtitle('Олимпийские кольца');
setpenwidth(1);
setpencolor(clblue);x:=100;y:=100;r:=50;circle(x,y,r);
setpencolor(clblack);x:=220;y:=100;r:=50;circle(x,y,r);
setpencolor(clred);x:=340;y:=100;r:=50;circle(x,y,r);
setpencolor(clyellow);x:=150;y:=150;r:=50;circle(x,y,r);
setpencolor(clgreen);x:=270;y:=150;r:=50;circle(x,y,r);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
StarPerk
19.03.2020 08:03
написать псевдокод (уч.алгоритмический язык) для поиска среднего арифметического N количества целых чисел по заданной блок-схеме....
aliaganieva70
11.06.2022 00:08
На основании выбранного варианта выполнить следующее: 1. Выполнить анализ предметной области исследуемой организации; 2. Описать основные сущности предметной области; 3. Расставить...
оксаночка1412
06.07.2022 17:43
5. МАКСИМАЛЬНО.ЭКЗАМЕН A, B и C - целые числа, для которых истинно высказывание:(С AVC B)^НЕ(C+1 A)^НЕ(C+1 B).Чему равно С, если А=45 и В=18?...
VikaPika561
12.05.2022 18:24
Текст занимает полных 5 стр. на каждой стр. размещается 30 строк по 70 символов в строке. какой объем орперативной памяти ( в байтах) займет этот текст? распишите по !...
Fltkbyf2017
25.02.2021 16:47
Домашняя работа Задание 1 1. Переведите данные числа в десятичную систему счисления. а) 100112 б) 233214 в) С2А16 2. Переведите число 24510 в двоичную, восьмеричную и шестнадцатеричную...
vanyad09
30.06.2022 09:11
Запиши верные ответы. ( запиши данное число в двоичной, восьмеричной и шестнадцатеричной системе счисления) Системы счисления: Десятичная: 13Двоичная: Восьмеричная: Шестнадцатеричная: ...
alina06alina
30.11.2022 14:56
Веревка выдерживает груз массой 110 кг при вертикальном подъёме его с некоторым ускорением и груз массой 690 кг при опускании его с таким же по модулю ускорением, какова максимальная...
DashaБорьщ17
04.08.2022 03:14
Вставить пропущенные слова: responsible? group? local, social,invitation/ lets discuss his...
kattya100
04.08.2022 03:14
Медный цилиндр объемом 20см^3 подвесили к пружине динамометра и погрузили в подсолнечное масло.какую силу будет показывать динамометр? ответ обоснуйте.плотность подсолнечного масла...
sashawinner13
04.08.2022 03:14
1. решите систему уравнений: 7x-3y=34 5x+6y=8 2.выразите из формулыq=mc(t-p) переменную р. 3.найдите не положительный корень уравнения: 35x-49x^2=0...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x,y,r:integer;
begin
setwindowsize(450,300);
setwindowtitle('Олимпийские кольца');
setpenwidth(1);
setpencolor(clblue);x:=100;y:=100;r:=50;circle(x,y,r);
setpencolor(clblack);x:=220;y:=100;r:=50;circle(x,y,r);
setpencolor(clred);x:=340;y:=100;r:=50;circle(x,y,r);
setpencolor(clyellow);x:=150;y:=150;r:=50;circle(x,y,r);
setpencolor(clgreen);x:=270;y:=150;r:=50;circle(x,y,r);
end.