Ответы на вопрос:
Код в turbo pascal: uses graph,crt; var x,y,dx,dy,device,mode,i: integer; begin device: =0; initgraph(device,mode,''); x: =10; y: =10; dx: =1; dy: =1; i: =1; repeat setcolor(cyan); circle(x,y,10); setfillstyle(1,3); floodfill(x,y,cyan); delay(10); setcolor(black); circle(x,y,10); setfillstyle(1,0); floodfill(x,y,black); x: =x+dx; y: =y+dy; if (x> 300) or (y> 200) then begin x: =10; y: =10; i: =i+1; end; until i> 5; end.
Популярно: Информатика
-
perf3ctkn1ghtozbgjn05.10.2022 14:01
-
Demon21110804.05.2020 22:33
-
NadushaLove1204.09.2021 03:45
-
Innka89898905.02.2020 05:32
-
7986910669806.05.2022 23:50
-
Ulugbek9i22.05.2022 12:33
-
Кирилл4235228.04.2023 15:49
-
Kseiaa26.08.2022 05:14
-
tabarovavikap06jkm21.01.2022 06:17
-
Евангелина1234508.04.2023 22:18