06.02.2008, 20:25
|
|
Прохожий
|
|
Регистрация: 03.10.2007
Адрес: Volgograd
Сообщения: 17
Репутация: 10
|
|
Цитата:
procedure swap(var a,b:integer);
begin
a:=a+b;
b:=a-b;
a:=a-b;
{какой-то странный алгоритм }
end;
|
Мож так как то
__________________
Маленький Данилка в петельке удавился
|