Question

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

Answer 1

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

Answer 2

Программа на Pascal будет выглядеть следующим образом:

program OrderAndDoubleOrInvert;
var
  A, B, C: Real;
begin
  // Ввод значений переменных A, B, C
  writeln('Введите значения переменных A, B, C:');
  readln(A, B, C);
  
  // Проверка на упорядоченность и выполнение соответствующих действий
  if (A < B) and (B < C) then
  begin
    A := A * 2;
    B := B * 2;
    C := C * 2;
  end
  else if (A > B) and (B > C) then
  begin
    A := A * 2;
    B := B * 2;
    C := C * 2;
  end
  else
  begin
    A := -A;
    B := -B;
    C := -C;
  end;
  
  // Вывод новых значений переменных A, B, C
  writeln('Новые значения переменных A, B, C:');
  writeln(A, ' ', B, ' ', C);
end.

Эта программа сначала запрашивает у пользователя значения переменных A, B, C. Затем она проверяет, упорядочены ли значения по возрастанию или убыванию, и выполняет соответствующие действия: удваивает значения, если они упорядочены, или заменяет их на противоположные в противном случае. Наконец, программа выводит новые значения переменных A, B, C.