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

Помогите решить Задаачу по Паскалю

  1. Ответ
    Ответ дан HRAshton
    var x, y: Integer;
    begin
         x := -3;
         repeat
               if (x < 0) then writeln('При X = ', x, ' y = ', 2 * x);
               if (x = 0) then writeln('При X = ', x, ' y = ', 0);
               if (x > 0) then writeln('При X = ', x, ' y = ', 0.5 * x);
               x := x + 1;
         until (x > 8);
    end.

    Проверил =)
Самые новые вопросы