Var a, b:integer;

y:real;

begin cls;

a:=2;

b:=4;

y:=sqr (a+3.7) / (b) + (a-4.5*b) / (3.2-b) ;

write ('y=', y:6:2)

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) ;

Где здесь ошибка? program P12; uses crt; var a, b, c:real; i, n:integer; function F (x:real) : real; begin f:=sqr (sqr (x)) + (sqr (x)) * x-8*x (sqr (x)) + 5*x-3-cos (2*x) ; end; begin clrscr; a:=0; b:=1; n:=20; for i:=1 to n do begin c: = (a+B) / 2;

Где здесь ошибка метод хорд 9. x5+3*sin (x) - 3x2-12 program P12; var a, b, c, x:real; i, n:integer; function F (x:real) : real; begin f:=sqr (sqr (x)) + 3*sin (x) - 3*x*sqr (x) - 12; end; begin a:=0.5; b:=1.

Укажите области видимости в программе: 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;

Сократите эту программу program sr; var a, b, c : real; y, x, xb, xc : real; na, nb, nc: integer; function stup (x: real; n: integer) : real; var i: integer; k: real; begin k:=1; for i : = 1 to n do k : = k * x; stup : = k; end;