Question

Составьте программу Pascal ABC по данным рисункам.

Answer 1

Ответ:

Объяснение:

uses GraphABC;

begin

line(0,0,640,240);

line(45,0,640,240);

line(89,0,640,240);

line(132,0,640,240);

line(176,0,640,240);

line(219,0,640,240);

line(263,0,640,240);

line(306,0,640,240);

line(350,0,640,240);

line(393,0,640,240);

line(437,0,640,240);

line(480,0,640,240);

end.

uses GraphABC;

begin  

line(0,0,640,0);

line(0,47,640,47);

line(0,94,640,94);

line(0,141,640,141);

line(0,188,640,188);

line(0,235,640,235);

line(0,282,640,282);

line(0,329,640,329);

line(0,376,640,376);

line(0,423,640,423);

line(0,470,640,470);

end.