Question

Напишите программу через Pascal ABC,которая нарисует эту мышь,пожалуйста

Answer 1

// сойдет?

uses graphAbc;

const
  d = 40;
  w = d*12;
  h = d*8;
  x0 = d div 2;
  y0 = d div 2;

begin
  setwindowsize(w,h);
  arc(x0+2*d,h-y0,2*d,180,90);
  line(x0+2*d,h-y0-2*d,x0+10*d,h-y0-2*d);
  rectangle(x0+10*d,h-y0-2*d,x0+11*d,h-y0-2*d-d div 4);
  rectangle(x0+3*d,h-y0-2*d,x0+5*d,h-y0-3*d div 2);
  rectangle(x0+7*d,h-y0-2*d,x0+9*d,h-y0-3*d div 2);
  arc(x0+6*d,h-y0-2*d,4*d,180,0);
  circle(x0+8*d,h-y0-4*d,d div 2);
end.