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

SoktoevTimur SoktoevTimur    3   16.03.2020 06:25    2

Ответы
FoxyPixel FoxyPixel  11.10.2020 22:49

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика