сервис вопросов и ответовКак нарисовать олимпийские кольца в PascalABC?
5-9 класс|
|
Sspput
31 июля 2013 г., 0:55:32 (10 лет назад)
Sapsan01
31 июля 2013 г., 2:47:43 (10 лет назад)
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.
Ответить
Другие вопросы из категории
Однажды бабушка попросила машу помочь собрать ягоды крыжовника. Девочка взяла лукошко и подошка к большому колючему кусту.Она осторожно срывала яголу и
опускала ее в лукошко.Так Маша делала делала до тех пор,пок ана куст не осталось ни одной ягоды.Из этих ягод сварили очень вкусное варенье. ЗАПИШИТЕ ДЕЙСТВИЯ МАШИ В ВИДЕ БЛОК-СХЕМЫ.
ПОМОГИТЕ ПОЖАЛУЙСТА ЗДАВАТЬ ЗАВТРА ПЛИЗ конец четверти двоичный двоичный 1)11001,100011 2)11001,11011 3)11101,11011 4)10101,10010 5)11100,10100 6)11101
,10001 7)100010,1111 8)11101,1011 9)11111,1001 10)10011,111 11)10010,100 12)1011,1001 13)111,1 14)101,10 15)1010,1010 16)1,1101 17)101,10000 18)0,11011 19)10,11011 20)100,100001 21)1000,11101 22)1011,11111 23)1101,11000 24)10000,100010 25)10011,11111 26)11001,10011 перевести в десятичные спосибо *** уже нашел сам пока вас тождешся помочь неможете ?????
Помогите срочно!!! Составить программу печатающую значение true если указанное высказывание истина и false в противном случае: 1.Сумма двух целых чисел
кратна 2. 2. Целое число N является трёхзначным числом.
решить через паскаль через массивы)) 1.Дан одномерный массив из 10 элементов. Заменить все большие 7 члены массива числом 7. Найти количество
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
Читайте также
таня написала на полоске бумаги подряд следующие цифры 121221121122 После этого она склеила полоску в кольцо то есть за последней двойкой теперь идет
первая единица . Затем Таня разрезала кольцо между двумя цифрами как что развернув кольцо в полоску получилась наибольшее число . Какое это было число
Вы находитесь на странице вопроса "Как нарисовать олимпийские кольца в PascalABC?", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.