4) TYPE, CONST, VAR
77. :
, , ,
2) +, -, *, /
3) , ,
4) not, and, or, xor, div, mod
78. not, and, or. ?
1) and, or, not
2)
3) not, or, and
Not, and, or
79. a, c 3?
if a<5 then c:=1
else if a=5 then c:=2
else c:=3;
1) 5
5
3) 5
4)
80.
Var k: 0..9;
?
1) k:= 5
2) k:= 2
3) k:= 3
4) k:= 1
81. . ?
a: = 1; b: =1;
while a + b < 8 do
begin
a: = a+1;
b: = b+2;
end;
S:= a + b;
1) 3
2) 4
3) 2
4) 5
82.
[3..5] * [4,5] + [4,3,2] [3,5]
1) []
2) [3,4,5]
3) [2]
4) [4,2]
83.
[5..7] <= [8,6,7,5]
1) false
True
3) 8
4) [8,6]
84. :
1) ;
2) , ;
3) , ;
, , .
85.
S:= [];
For i:= 1 to length(Str) do S:= S + [Str[i]];
: var S: set of char; Str: string[30]; i: integer;?
1) ;
2) ;
3) ;
4) .
86.
1) ;
;
3)
4)
87. :
1) < > (< >);
2) < >;
3) < >: ;
4) < > (< >);
88. :
Var i: integer; r: real; x: char;
, ,
x:= f(i, 5, r, 5.2*i, x, r);
1) function f(a: integer; b: integer; c: real; d: real; e: char; q: char);
2) function f(a: integer; b: integer; c: real; d: real; e: char; q: char): char;
|
|
|
3) procedure f(var a: integer; b: integer; var c: real; d: real; var e: char; q:char);
4) function f(a: integer; b: integer; c: char; d: real; e: char; q: char): char;
89. ,
1) ;
2) ;
3) ;
.
90. :
1) ;
;
3) ;
4) .
91. :
, ;
2) ;
3) ;
4) .
92. :
1) ;
2) ;
3) ;
.
93.
Program Mas;
Type
massiv = array[1..100] of integer;
var
m, j: integer;
a: massiv;
function Sm(b: massiv; n: integer): integer;
begin
if n = 1 then Sm:= b[1]
else Sm:= Sm(b,n-1) + b[n];
end;
begin
writeln( );
readln(m);
for j:= 1 to m do
begin
write(a[,j,]=);
readln(a[j]);
end;
writeln(Sm(a,m));
end.
.
2) , .
3) .
4) .
