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

Program p; Unit md;

Uses md; INTERFACE

Var f,a: real; Procedure P1(a, f :real);

begin IMPLEMENTATION

a:=20; Procedure P1;

f:=40; var с:real;

P1(a,f); begin

Write(‘f:8:2) ; с:=60; f:=f+c; a:=f;

Writeln(a:8:2); write(f:8:2,a:8:2);

End. end; end.

00

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

Program p; Unit u_1;

Uses u_1; INTERFACE

Var f,a,c: real; Procedure P1(var c:real);

begin IMPLEMENTATION

a:=20; c:=10; Procedure P1;

f:=40; var d:real;

P1(a); begin

Write(‘f=’,f:6:2) ; d:=50; с:=c+d;

Write(‘ a=’,a:6:2); writeln(‘c=’,c:6:2,’d=’,a:6:2);

End. end; end.

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

Program p; Unit uPR;

Uses uPR; INTERFACE

Var f,a: real; Procedure P1(f:real);

begin IMPLEMENTATION

a:=20; Procedure P1;

f:=40; var a,с:real;

P1(a); begin

Write(‘f=’,f:6:2) ; с:=60; a:=50; f:=frite(‘ a=’,a:6:2); writeln(‘f=’,f:6:2,’ a=’,a:6:2);

End. End; end.

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

Program p; Unit u1;

Uses u1; INTERFACE

Var f,a: real; Procedure n1(f:real);

begin IMPLEMENTATION

a:=30; Procedure n1;

f:=40; var a,с:real;

n1(a); begin

Write(‘f=’,f:6:2) ; с:=20; a:=40; f:=a+c;

End. writeln(‘f=’,f:6:2);

. End; end.