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

Question

Информатика

Марианна

14 декабря, 15:40

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

+4

Ответы (1)

Знаете ответ на вопрос?

Николка · 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.