составьте программу которая рисует 10 окружностей с одним центром внтри)
Ответы на вопрос
Ответил Maximason
0
В общем, у меня 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.
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.
Новые вопросы