Question

Что напечатает программа

Program first;
Var
X:integer;
Procedure change;
Var X:integer;
Begin
X:=1;
End;
Begin
X:=0;
Change;
Write(x);
End/

Answer 1

Программа напечатает: 0

Answer 2

Если в последней строке программы исправить ошибку и заменить / на точку, то программа выведет 0.
В самом деле, процедура Change присваивает переменной х значение 1, но переменной х, описанной в теле процедуры. Поэтому одноименная переменная х, описанная перед процедурой, в теле процедуры будет не видна и процедура не сможет изменить её значения. Будет выведено значение 0, которое присвоено в программе оператором Х:=0;