Экономика
Что напечатает следующая программа? 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.
Что напечатает следующая программа?
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.
