Составе программу которая рисует 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
