Pascal.

Даны три переменные вещественного типа: A, B, C. Если их значения упо - рядочены по возрастанию или убыванию, то удвоить их; в противном слу - чае заменить значение каждой переменной на противоположное. Вывести новые значения переменных A, B, C.

Var

a, b, c: real;

begin

Write ('Введите через пробел три числа - > ') ;

Readln (a, b, c) ;

if ((a > b) and (b > c)) or ((a < b) and (b < c)) then

begin a : = 2 * a; b : = 2 * b; c : = 2 * c end

else

begin a : = - a; b : = - b; c : = - c end;

writeln ('Новые значения чисел: ', a, ', ', b, ', ', c)

end.

Тестовое решение:

Введите через пробел три числа - > 18 5 - 3

Новые значения чисел: 36, 10, - 6

Введите через пробел три числа - > - 6 0 5

Новые значения чисел: - 12, 0, 10

Введите через пробел три числа - > 11 20.7 4.9

Новые значения чисел: - 11, - 20.7, - 4.9