Произвести обмен данных - Turbo Pascal
Формулировка задачи:
Всем привет, помогите написать программу.
D=7, C=5 произвести обмен данных.
Заранее спасибо!!!!
Решение задачи: «Произвести обмен данных»
textual
Листинг программы
var
d, c: integer;
begin
d := 7;
c := 5;
d := d + c;
c := d - c;
d := d - c;
writeln('d = ', d);
writeln('c = ', c);
end.
Объяснение кода листинга программы
- Объявляются две переменные типа Integer: d и c.
- Значение переменной d устанавливается равным 7.
- Значение переменной c устанавливается равным 5.
- Выполняется операция сложения d и c, результат которой сохраняется в переменной d.
- Выполняется операция вычитания d и c, результат которой сохраняется в переменной c.
- Выполняется операция вычитания d и c, результат которой сохраняется в переменной d.
- Выводится значение переменной d с помощью функции writeln.
- Выводится значение переменной c с помощью функции writeln.