[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 можно посмотреть здесь.
Комментарии: