Информатика, опубликовано 2018-08-22 22:42:02 by Гость
Как нарисовать олимпийские кольца в PascalABC?
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на