Обмін двох змінних
Pascal Ввід-вивід
через тимчасову змінну
Блок-схема за ДСТУ
Вихідний код
procedure Swap(var a, b: integer);
var t: integer;
begin
t := a;
a := b;
b := t;
end;через тимчасову змінну
procedure Swap(var a, b: integer);
var t: integer;
begin
t := a;
a := b;
b := t;
end;