Question

Составьте программу (Паскаль), которая рисует 3 окружности, радиусом 100, расположенные по вертикали.
ПОМОГИТЕ

Answer 1

Ответ:

uses GraphABC;

var i,y:integer;

begin

SetWindowSize(300,700);

y:=150;

for i:=1 to 3 do

begin

Circle(150,y,100);

y:=y+200

end

end.

Объяснение:

картинка