составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром?
5-9 класс
|
uses GraphABC;
var n: integer;
begin
n:=10;
SetBrushColor(clGreen);
while n<>0 do
begin
Circle(150,150,10*n);
n:=n-1;
end;
end.
P.S. Программа написана на Pascal ABC.
когда нужно никто не напишит уже не надо
Другие вопросы из категории
=> ........... => ........... => ........... => ............. => конец.
ПС.: Вместо ......... ПОСТАВИТЬ КАК ГОТОВИТЬСЯ
Читайте также
помогите,пожалуйста.
удваиваются , а элементы с нечетными индексами утраивает.Выведите на экран исходный и полученный массив.
б)составьте программу ,которая заполняет массив b[1..8 ] случайными целыми числами в диапозоне от 1 до 10 , затем изменяет знак элементов с четными индексами на противоположный .Выведите на экран исходный и полученный массивы.
5) а)составьте программу ,которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 10 ,и находит количество элементов ,которые больше своего соседа слева
б)составьте программу ,которая заполняет массив b[1..8 ] случайными целыми числами в диапозоне от 1 до 10 и находит количество пар элементов с четными значениями.
6) а)составьте программу ,которая заполняет массив а[1..20 ] случайными целыми числами в диапозоне от 1 до 10 ,и находит среднее арифметическое элементов с четными значениями и нечетными индексами.
б) составьте программу ,которая заполняет массив b[1..15 ] случайными целыми числами в диапозоне от 1 до 20 и выводит все тройки элементов , упорядоченные строго по возрастанию.
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве