[latexpage]
Begin24. Даны переменные $A$, $B$, $C$. Изменить их значения, переместив содержимое $A$ в $C$, $C$ — в $B$, $B$ — в $A$, и вывести новые значения переменных $A$, $B$, $C$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
program Begin24; var A,B,C,TempR: Real; begin Write('Введите значение A: '); Readln(A); Write('Введите значение B: '); Readln(B); Write('Введите значение C: '); Readln(C); TempR:=A; A:=C; C:=B; B:=TempR; Writeln('Переменная A имеет значение: ',A); Writeln('Переменная B имеет значение: ',B); Writeln('Переменная C имеет значение: ',C); end. |
Решение задачи, без использования дополнительной переменной:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
program Begin24; var A,B,C: Real; begin Write('Введите значение A: '); Readln(A); Write('Введите значение B: '); Readln(B); Write('Введите значение C: '); Readln(C); A:=A+C; C:=A-C; A:=A-C;{Закончился перевод А в С} B:=B+C; C:=B-C; B:=B-C; Writeln('Переменная A имеет значение: ',A); Writeln('Переменная B имеет значение: ',B); Writeln('Переменная C имеет значение: ',C); end. |
Другие задачи из раздела Begin можно посмотреть здесь.
Комментарии: