Размещено 5 лет назад по предмету
Информатика
от 22ff2296
Надо сделать чтобы появлялось 20 круглишков , а потом 1 удалялся взамен появлялся другой
uses graphABC;
var x,x1,y,y1,i:integer;
c: Color;
begin
C:=clBlack;
ClearWindow(C);
randomize;
C:=clBlack;
i:=1;
repeat
repeat begin
x:=random(windowwidth);
y:=random(windowheight);
x1:=random(windowwidth);
y1:=random(windowheight);
sleep(200);
circle(x,y,4);
i:=i+1;
setpencolor(clblack);
circle(x1,y1,4);
end;
until i=21;
if i>20 then i:=i-1;
until false;
end.