Составе программу которая рисует 5 окружностей голубого цвета , с центром в точке (200,200) радиусами 30, 40 , 50 , 60 , 70 . Pascal ABC
Составе программу которая рисует 5 окружностей голубого цвета , с центром в точке (200,200) радиусами 30, 40 , 50 , 60 , 70 . Pascal ABC
Гость
Ответ(ы) на вопрос:
Гостьuses graphABC;
var k,i:integer;
begin;
k:=80;
setpencolor(RGB(0,0,255));
for i:=1 to 5 do
begin;
k:=k-10;
circle(200,200,k);
end;
end.
Не нашли ответ?
Похожие вопросы