Условие:
Что будет напечатано программой?
var a, b, c: integer; procedure swap(var x, y-integer);
var t : integer; begin
t=x ; x:=y ; y:=t ;
end; begin
a:=1 ; b:=2 ; c:=3 ; swap(a, b) ; swap(b, c) ; write(c); end.
Решение:
Сначала объявляются переменные a, b, c и процедура swap, которая меняет местами два целых числа. Далее происходит следующее: 1. Изначально устанавливаем значения: a = 1, b = 2, c = 3. 2. Вызывается swap(a, b). В процедуре...
