составьте программу рисования окружностей в точке (200,200) и радиусами 10,20,30,40,50(примените команду for)
Answers & Comments
ЕлизабэтФК
Program axaxa; uses graphabc; var i,a,d:integer; begin a:=200; d:=50; setwindowsize (640,480); setpencolor (clbrown); setpenwidth (2); for i:=1 to 5 do begin circle(a,a,d); d:=d-10; end; end.
Answers & Comments
uses graphabc;
var i,a,d:integer;
begin
a:=200;
d:=50;
setwindowsize (640,480);
setpencolor (clbrown);
setpenwidth (2);
for i:=1 to 5 do
begin
circle(a,a,d);
d:=d-10;
end;
end.