Question

uses grapabc;
var t:integer;
begin
setpencolor(clred);
for t:=15 downto 1 do
Circle(300,200,t*15);
end.
Какое изображение взято из программы

Answer 1

Это код описывает программу для рисования серии кругов на экране. Каждый круг имеет радиус, увеличивающийся на 15 пикселей с каждым шагом цикла. Цвет каждого круга задается как красный. Точка с координатами (300,200) является центром всех кругов.