Pascal ,Графика Выводится набор кругов случайного - вопрос №20032341 от ailina26 20.06.2021 07:50

Question

Информатика: Pascal ,Графика Выводится набор кругов случайного радиуса и расположения. Затем радиусы кругов начинают расти. При касании кругов меньше уничтожается. При касании края экрана центр круга начинает смещаться.

ailina26 · Answer

uses graphabc ; Var x,y,r:integer;beginsetwindowsize (400,250);setwindowtitle ( Окружности );r:=10; x:=11; y:=11;while x 800 dobegin circle(x,y,r); x:=x+20; end;end....