Составьте программу которая рисует красные круги радиуса 30 по вертикали вдоль левого края графического окна

Question

Информатика

Никита

12 апреля, 06:36

Составьте программу которая рисует красные круги радиуса 30 по вертикали вдоль левого края графического окна

+5

Ответы (1)

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

Андрейка · Answer 1

program krug;

uses graphabc;

var x, y, r, i:integer;

begin

setwindowsize (640,480) ;

setwindowtitle ('Êðóã') ;

setpencolor (clred) ;

setpenwidth (4) ;

x:=50;

y:=50;

r:=40;

for i:=1 to 10 do

begin

circle (x, y, r) ;

x:=x+80;

end;

end.

Такое пойдёт?