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

Question

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

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.
Такое пойдёт?

Comments

ДА. СПАСИБО