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