Что напечатает следующая программа? program p3; var x,y: integer; procedure p1 (var a,b: integer); begin a: =sqr(a); b: =sqr(a)+a; end; procedure p2 (a,b: integer); begin a: =sqr(a); b: =sqr(b)+b; end; begin x: =2; y: =2; p1(x,y); writeln ('x=',x,'y=',y); p2(x,y); writeln ('x=',x,'y=',y); end.

burakova1985200    2   16.07.2019 22:50    0