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

Вывести новые значения переменных A, B, C.

Program If16;

Var
  A, B, C: Real;

Begin
  WriteLn('Введите числa 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
  Begin
    A := -A;
    B := -B;
    C := -C;
  End;
  WriteLn('A = ', A, ' B = ', B, ' C = ', C);

End.

Leave a Comment