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

составбте прогоамму создания изображался Робот с использованием процедуры ​

  1. Ответ
    Ответ дан ingr

    uses Robot;

    procedure drawKrest;

    begin

       Left; Paint; Right; Up; Paint; Down; Right; Paint; Left; Down; Paint; Up; Paint;

    end;

    begin

       field(20, 9);

       for var i := 1 to 8 do Left;

       for var i := 1 to 2 do begin

           drawKrest;

           Right; Right; Right; Up;

           drawKrest;

           Right; Right; Right; Down;

       end;

       drawKrest;

       Right; Right; Right; Down;

       drawKrest;

    end.

Самые новые вопросы