If16. Даны три переменные вещественного типа: $$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 if16; var A, B, C: Real; begin Write('Введите число A: '); Readln (A); Write('Введите число B: '); Readln (B); Write('Введите число C: '); Readln (C); if (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 можно посмотреть здесь.
Комментарии: