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

276

368

Посмотреть ответы 2

Ответы на вопрос:

meladse1105

Информатика

4,6(39 оценок)

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 < 0) and (y > = 0)) or ((x > = 0) and (y < then begin x += 0.5; y += 0.5; end else if .5 < = x) and (x < = 2)) or ((0.5 < = y) and (y < = then begin x /= 10; y /= 10; end; writeln(x, ' ', y); end.