Составить программу на языке паскаль которая меняет местами два числа без ввода дополнительной ячейки

A:=a+b;
b:=a-b;
a:=a-b;

var a,b:real;
procedure change(var a, b: real);
begin
a := a + b; writeln(a);  
b := a - b; writeln(b);  
a := a - b; writeln(a);
end;
begin
writeln('a, b:');  
readln(a, b);  
writeln('a=', a);  
writeln('b=', b);  
change(a, b);  
writeln('a=', a);  
writeln('b=', b);  
readln;
end.

1 - 2, 2 - 3, 3 - 2, 4 - 3, 5 - 1, 6 - 4, 7 - 2, 8 - 3, 9 - 1, 10 - 2

Объяснение:

1. Правила доступа к информации на сервере устанавливает: администратор сервера;

2. Региональная сеть обеспечивает связь пользователей, находящихся в одном городе;

3. Телекоммуникационная технология, базирующаяся на использовании электросетей для высокоскоростного информационного обмена, — это PLC;

4. Какое устройство обеспечивает передачу цифровых компьютерных данных по каналам связи - модем

5. Количество информации, передаваемое в единицу времени называется пропускная канала.

6. Общая схема соединения компьютеров в локальной сети называется топология сети.

7. Какой топологии сети не существует - линейная шина.

8. Из чего состоит IP-адрес? - Из четырех чисел в диапазоне от 0 до 255.

9. Какими бывают домены верхнего уровня? - географические и коммерческие - TCP/IP

опустить перо

нц 4 раз

сместиться на вектор (0,1)

сместиться на вектор (2,1)

сместиться на вектор (2,-1)

сместиться на вектор (0,-1)

сместиться на вектор (-2,-1)

сместиться на вектор (-2,1)

сместиться на вектор (-2,-1)

сместиться на вектор (2,-1)

сместиться на вектор (2,1)

сместиться на вектор (2,1)

кц

поднять перо

сместиться на вектор (-16,-3)

опустить перо

нц 4 раз

сместиться на вектор (0,1)

сместиться на вектор (2,1)

сместиться на вектор (2,-1)

сместиться на вектор (0,-1)

сместиться на вектор (-2,-1)

сместиться на вектор (-2,1)

сместиться на вектор (-2,-1)

сместиться на вектор (2,-1)

сместиться на вектор (2,1)

сместиться на вектор (2,1)

кц

Объяснение: