5.59. После выполнения программы на экран будет выведено …

Program PrF; Unit uf;

Uses uf; Interface

Var Function P1(par:integer):integer;

k:real;

a: integer; Procedure P2 (var k:real);

begin Implementation

a:=p1(a); Function P1(par:integer):integer;

k:= 4; begin

P1(k); P2(k); inc(par); p1:=par; end;

write(‘a=’,a) ; Procedure P2 ;

Writeln(‘ k=’,k); begin

End. k:=sqrt (k);

end; end.

5.60. После выполнения программы на экран будет выведено …

Program PF_2; Unit u_2f;

Uses u_2f; Interface

Var Function P1(p:integer):integer;

k:real;

a: integer; Function P2:real);

begin Implementation

a:=p1(a); Function P1(p:integer):integer;

k:=p2; begin

write(‘a=’,a) ; inc(p); p1:=p; end;

write(‘k=’,k:5:2) ; Function P2:real;

end. var g:real;

begin g:=1.1; p2:=g; end;

end.

5.61. После выполнения программы на экран будет выведено …

Program P; Unit u_f;

Uses u_f; Interface

Var Function F1(a:real):real;

f,а:real; Function F2(a:real)::real);

begin Implementation

a:=9; Function F1(a:real):real;

a:=f1(a); begin

f:=f2(a); F1:=sqr(a)

write(‘a=’,a:3:0,’ f=’,f:3:0) ; end;

end. Function F2(a:real):real;

begin

F2:=sqrt(a); end; end.

5.62. После выполнения программы на экран будет выведено …

Program P; Unit u_SC;

Uses u_SC; Interface

Var Function F1:real;

f,а:real; Function F2::real);

begin Implementation

a:=f1; Function F1:real;

f:=f2; begin

write(‘a=’,a:3:2,’ f=’,f:3:2) ; F1:=sin(0);

end. end;

Function F2:real;

begin

F2:=cos(0); end; end.