Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное
Категория: Delphi/Pascal
2011-12-09 17:06:31
Вывести новые значения переменных A, B, C.
code: #pascal
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.
автор: Sklyarov Sergej a.k.a. S9
Поделиться: