profile
Опубликовано 5 лет назад по предмету Информатика от jsjsjhdhdhhshhshdh

Помогите составить программу ​

  1. Ответ
    Ответ дан larakroftbet
    uses GraphABC;
    procedure Tr( x, y: integer);
    begin
    MoveTo(x, y);
    LineTo(x+50, y-100);
    LineTo(x+50, y+100);
    LineTo(x, y);
    end;
    begin
    setpencolor(clblack);
    tr(0,200);
    tr(100,200);
    tr(200,200);
    tr(300,200);
    tr(400,200);
    tr(500,200);
    end.

    Должно быть все верно