If17. Даны три переменные вещественного типа: $$A$$, $$B$$, $$C$$. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных $$A$$, $$B$$, $$C$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
program if17; var A, B, C: Real; begin Write('Введите число A: '); Readln (A); Write('Введите число B: '); Readln (B); Write('Введите число C: '); Readln (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*(-1); B:=B*(-1); C:=C*(-1); end; Writeln('Число A равно: ',A); Writeln('Число B равно: ',B); Writeln('Число C равно: ',C); end. |
Другие задачи из раздела If можно посмотреть здесь.
Помогите решить,в паскале или желательно в С++. Дан одномерный массив.Задать диапозон массиву и вывести на экран все эти элементы вместе и индексом
Извеняйте, что так долго… подбирал компилятор… в итоге выбрал visual studio express 2013. Вот, что получилось:Решение.