Ответы
Ответ дал:
0
uses graphabc;
var i: integer;
procedure Triangle(x1, y1, x2, y2, x3, y3: integer);
begin
line(x1, y1, x2, y2);
line(x2, y2, x3, y3);
line(x3, y3, x1, y1)
end;
begin
setwindowsize(600, 300);
for i := 0 to 5 do
Triangle(0 + i * 100, 200, 50 + i * 100, 100, 100 + i * 100, 200);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад