Напишите все значения которые принимают переменные (x,y),(x,y)... program m3;var...

Question

Напишите все значения которые принимают переменные (x,y),(x,y)... program m3;var x,y,t:integer;beginy:=2;t:=3;x:=22;while y<x do beginy:=y+t;writeln('y=',y,'x=',x);end;end.​

Answer 1

Ответ: var

a, b: integer;

procedure h(x: integer; var y: integer);

begin

x := x + 1;

y := y + 1;

writeln(x, y)

end;

begin

a := 0;

b := 0;

h(a, b);

writeln(a, b);

readln

end.