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

Категория: Delphi/Pascal

2011-12-09 17:07:42

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

code: #pascal

Program If17;
Var
A,B,C:Real;
Begin
WriteLn('Введите числa A,B и C: ');
ReadLn(A,B,C);
If ((A < B) And (B < C)) Or ((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.

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Sample Code

категории

Похожие статьи: