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

Question

Информатика

Аннечка

11 октября, 00:40

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

+2

Ответы (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.