Pascal ,Графика Выводится набор кругов случайного - вопрос №20031664 от Mj3589 14.10.2020 03:23

Question

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

Mj3589 · 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....