[latexpage]
Begin22. Поменять местами содержимое переменных A и B и вывести новые значения A и B.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
program Begin22; var A,B,TempR: Real; begin Write('Введите значение A: '); Readln(A); Write('Введите значение B: '); Readln(B); TempR:=A; A:=B; B:=TempR; Writeln('Переменная A имеет значение: ',A); Writeln('Переменная B имеет значение: ',B); end. |
Решение этой же задачи без использования дополнительной переменной:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
program Begin22; var A,B: Real; begin Write('Введите значение A: '); Readln(A); Write('Введите значение B: '); Readln(B); A:=B+A; B:=A-B; A:=A-B; Writeln('Переменная A имеет значение: ',A); Writeln('Переменная B имеет значение: ',B); end. |
Другие задачи из раздела Begin можно посмотреть здесь.
Комментарии: