Укажите результат выполнения программы var a, b: integer

procedure proc (var a: integer; b: integer)

begin b:=4; a:=6; b:=a+b; end;

begin a:=2; b:=3; proc (a, b) ; writeln (a,' ', b) ; end.

Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;

Укажите результат выполнения программы var a, b: integer; procedure proc (var a: integer; b: integer) ; begin b:=4; a:=6; b:=a+b; end; begin a:=2; b:=3; proc (a, b) ; writeln (a,' ', b) ; end. 1) 2 3 2) 2 10 3) 6 3 4) 6 10

Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;

Procedure P (x; var y: integer) ; begin y:=x+1 end; procedure Q (x: integer; var y: integer) ; begin y:=x+1 end; procedure R (x, y: integer) ; begin y:=x+1 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) ;