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

Люди, помогите. Паскаль АБЦ Нэт. Задание pp4 Перекиньте выполненное задание

  1. Ответ
    Ответ дан Аккаунт удален
    uses Drawman;
    var a,i:integer;
    procedure square(a:integer);
    begin
    pendown;
    onvector(a,0);
    onvector(0,-a);
    onvector(-a,0);
    onvector(0,a);
    end;

    begin
    Task('pp4');
    ToPoint(7,17); 
    pendown; 
    a:=15; 
    for i:=1 to 8 do
        begin
        square(a);
        penup;
        onvector(1,-1);
        a:=a-2;
        end; 
    ToPoint(0,0);
    end. 
Самые новые вопросы