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

Даны действительные числа x, y. Если x и y отрицательны, то каждое значение заменить модулем; если отрицательно только одно из них, то оба значения увеличить на 0,5; если оба значения неотрицательны и ни одно из них не пренадлежит отрезку [0.5;2,0], то оба значения уменьшить в 10 раз ; в остальных случаях x и y остаются без изменения . Помогите , завтра зачет.

  1. Ответ
    Ответ дан HRAshton
    var
      x, y: real;

    begin
      readln(x, y);
      if ((x < 0) and (y < 0)) then
      begin
        x := abs(x);
        y := abs(y);
      end
      else
      if (((x < 0) and (y >= 0)) or ((x >= 0) and (y < 0))) then
      begin
        x += 0.5;
        y += 0.5;
      end
      else
      if (((0.5 <= x) and (x <= 2)) or ((0.5 <= y) and (y <= 2))) then
      begin
        x /= 10;
        y /= 10;
      end;
      writeln(x, ' ', y);
    end.
Самые новые вопросы