Составьте программу (Паскаль), которая рисует 3 окружности, радиусом 100, расположенные по вертикали

Smile1smile Smile1smile    1   15.02.2021 12:16    12

Ответы
olya12011 olya12011  17.03.2021 12:19

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.

Объяснение:

картинка


Составьте программу (Паскаль), которая рисует 3 окружности, радиусом 100, расположенные по вертикали
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика