Question

Составьте программу рисования окружностей(рис. 3.21)

СРОЧНО БРАТЬЯ ИНАЧЕ МЕНЯ КАЗНЯТ!!!

Answer 1

Ответ:

uses graphabc;

var

i: integer;

begin

setwindowsize(600, 101);

for i := 0 to 5 do

begin

  circle(50 + i * 100, 50, 50);

  circle(50 + i * 100, 50, 15);

end;

end.

Объяснение: ВОТ