Информатика, опубликовано 2018-08-22 23:46:55 by Гость
Составьте программу которая рисует 10 окружностей с одним центром внтри)
Ответ оставил Гость
В общем, у меня 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на