Составе программу которая рисует 5 окружностей голубого цвета , с центром в точке...

Question

Составе программу которая рисует 5 окружностей голубого цвета , с центром в точке (200,200) радиусами 30, 40 , 50 , 60 , 70 . Pascal ABC

Answer 1

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.

Comments

Через цикл ( for dо и т.д