Нарисовать мишень при циклов FOR-TO-DO в паскале не менее 500 букв в коде.
(напишите программу(код))

Question

Информатика: Нарисовать мишень при циклов FOR-TO-DO в паскале не менее 500 букв в коде.(напишите программу(код))​

nikols7 · Answer

uses GraphABC;

var i:byte;

begin

SetWindowHeight(500);

SetWindowWidth(500);

for i:=10 downto 1 do

if i=1 then

begin

SetBrushColor(clRed);

circle(250,250,25*i);

end

else

circle(250,250,25*i);

end.

Нарисовать мишень при циклов FOR-TO-DO в паскале не менее 500 букв в коде.(напишите программу(код))​