составьте программу которая рисует 10 окружностей с одним центром внтри)
Answers & Comments
Maximason
В общем, у меня Pascal ABC стоит, примерно 10 окружностей с центром внутри будут выглядеть так : program krug; uses graphabc; var i:integer; begin setpencolor (clblack); for i:=109 downto 1 do begin i:=i-9 ; circle (100,100,i); end; end.
Answers & Comments
program krug;
uses graphabc;
var i:integer;
begin
setpencolor (clblack);
for i:=109 downto 1 do begin
i:=i-9 ;
circle (100,100,i);
end;
end.