Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
880055553555
02.04.2021 19:54 •
Информатика
Составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром. паскаль. чем скорее, тем лучше!
Показать ответ
Ответ:
Снежка555
24.06.2020 17:12
Uses graphabc;
var x,y,r:integer;
begin
clearWindow(clViolet);
setBrushColor(clGreen);
x:=22; y:=22; r:=20;
while x<660 do
begin
circle(x,y,r);
x:=x+40;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ТаяDuda2133
03.02.2023 09:11
A. патрик и поход в магазин ограничение по времени на тест1 секунда ограничение по памяти на тест256 мегабайт вводстандартный ввод выводстандартный вывод сегодня...
5434689
20.05.2022 10:34
Определите функции инструментов и заполните таблицу...
NastyaAngell
01.11.2020 11:42
Пароль длинной в 10 символов занимает 80 бит. Определите мощность алфавита, с которого записывали пароль пишите с решением!) 1...
fj8f
26.10.2022 07:47
Составить блок-схему для . дан массив из n целых чисел. выяснить, какое число встречается в массиве раньше – положительное или отрицательное....
grht1
11.09.2021 08:36
Древнего казахстана в письменных источниках...
яна1765
11.09.2021 08:36
Вид связи в простом веществе натрий : 1. ионная 2. ковалентная полярная 3. ковалентная неполярная 4. металлическая...
raku13
11.09.2021 08:36
Квадрат авсd повернули на кут 90 градусів навколо середини сторони ав квадрата проти годинникової стрілки. знайти координати образа точки d, якщо а(–2; –1), в(–2;...
NAZAR22847
11.09.2021 08:36
Вычислить: 12345+4837=. •••♣888-156=. •••♥729+2893=. ••••♦ 2910-377= •••••(♥≥`- ≤♥) °°°заранее большое••••••™...
leomessi171
29.05.2021 02:23
Из точки вне окружности проведены к ней две касательные. кратчайшие расстояние от этой точки до окружности равно радиусу окружности. найди угол между касательными:...
kokosik23
29.05.2021 02:23
Выбрать правильный ответ general questlon a good teacher? *am *are *is parents both doctors? *am *are *is hungry? *am *are *is friend businessman ? *was *were responsible...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x,y,r:integer;
begin
clearWindow(clViolet);
setBrushColor(clGreen);
x:=22; y:=22; r:=20;
while x<660 do
begin
circle(x,y,r);
x:=x+40;
end;
end.