как нарисовать ОЛИМПИЙСКИЕ КОЛЬЦА в PascalABC? чтобы получилось вот-так
5-9 класс
|
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(clLimeGreen);
Drawcircle(x,y,50);
inc(x,110);
end.
Другие вопросы из категории
должен получить ребёнок, если он будет читать текст 45 минут (ответ дайте в Кбайтах_
Варианты ответа : 1)4,6 2)5,6 3)4,7 4)5,7
НАПИШИТЕ РЕШЕНИЯ
віднімання статистика до квадрату і так далі тому подібне саме головне (суммм)
Решения оформить как в Паскале.
1) задать 5 чисел. найти среднюю сумму положительных чисел, произведение чисел, некратных 12 и количество четных чисел среди заданных
2)В фирме работают 5 сотрудников. какую сумму нужно заказать в банке для выплаты им заработной платы, если их зарплата меняется каждый месяц и задаётся бухгалтером с клавиатуры ?
3)Задать 20 чисел.найти среднее произведение чисел, больших 8 и сумму чисел, некратных 15.
Читайте также
картинку, и когда я вставляю его и все сохраняю получается вот так как на картинке. как мне сделать чтобы было их несколько а не одна картинка, чтоб на весь фон? подскажите а
пустые. Какое минимальное количество вопросов(на которые он получит только короткие ответы да или нет) должен задать винни пух кролику, чтобы однозначно определить номер горшочка с мёдом?
первая единица . Затем Таня разрезала кольцо между двумя цифрами как что развернув кольцо в полоску получилась наибольшее число . Какое это было число
в строчку первые 10 простых чисел. Как вычеркнуть 6 цифр, чтобы
получилось наибольшее возможное число?
напишите пожалуйста