Question

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

Answer 1

Ответ:

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.