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

Program SL; Unit so;

Uses so; Interface

Var Procedure Os (var c,v:string);

S1,S2:string; Implementation

Begin Procedure Os;

s1:=’лето ’; begin

s2:=’красное ’; c:=c+’пропела ’; v:=’стрекоза’;

Os (S1,S2); end;

Write(S1,S2): end.

end.

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

Program CH; Unit u1;

Uses u1; INTERFACE

Var Procedure P1(c: byte; var a:byte);

a,c: byte; IMPLEMENTATION

begin Procedure P1;

P1(c,a); begin

Write (c,a); c:=9; a:=a+c;

end. Write (c,a) end; end.

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

Program p; Unit u1;

Uses u1; INTERFACE

Var n,a: integer; Procedure sd (n:integer);

begin IMPLEMENTATION

a:=15; Procedure sd;

n:=30; var a,с:integer;

Sd (a); begin

Write(‘ n=’,n) ; с:=60; a:=50; n:=n+c;

Write(‘ a=’,a); write(‘n=’,n,’ a=’,a);

End. end; end.

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

Program p; Unit u1;

Uses u1; 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:=f+c;

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

End. end; end.