Question

Нарисовать снеговика.Количество кругов задаётся c клавиатуры. Pascal ABCНарисовать снеговика.Количество кругов задаётся c клавиатуры. Pascal ABC

Answer 1

uses GraphABC;
var n,y,r,i:integer;
begin
write('Количество кругов: ');
readln(n);
r:=10;
y:=50;
for i:=1 to n do
  begin
  brush.color:=clrandom;
  circle(250,y,r);
  r:=r+10;
  y:=y+2*r-10
  end
end.