3 2201 , ,
1. :
1.
2.
3.
2. , , :
1.
2.
3.
3. :
1. integer
2. real
3. char
4. ,
var A: array [1100] of integer:
1. 100
2. 200
3. 400
5. 5 mod 2:
1. 2.5
2. 1
3. 2
6. sqr(4):
1. 2
2. 8
3. 16
7. A=[1,2,3] =[15]. :
1. A=B
2. A 
B
3. A 
B
8. :
1. file
2. text
3. file of
9. :
1. read
2. write
3. input
10. :
1. var
2. label
3. type
11. :
1.
2.
3.
12. d =5, =3, =1:
1. 3 if (a<b) and (b<c) then d:= c-a+b
2. 4 else
3. 5 if (a>b) and (b>c) then d:= a-b+c
else
if (a>b) and (b<c) then d:= a-c+b
13. c =3,=5,=1: while a<b do
1. 36 begin
2. 31 := c+a*b;
3. 35 := a+1;
nd;
14. =10, b=5: repeat
1. 3 b:= b+1;
2. 4 a:= a-b;
3. 5 c:= a+b;
until a≤0;
15. =3,b=2,=4,n=4: for i:=1 to n do
1. 23 := c+a*b;
2. 25
3. 28
16. , : var A: array [1..10] of integer; S,i: integer;
1. begin S:= A[1];
2. for i:= 2 to 10 do
3. if S>A[i] then S:=A [i];
end.
17. S: for i:=1 to 6 do
1. 15 begin
2. 20 A [i]:=I; S:=S+A [i];
3. 21 end;
18. :
1. cos(x)
2. sin(x)
3. tg(x)
19. :
1. var c: char; begin c:=chr(100); end;
2. var c: char; begin c:=chr(200); end;
3. var c: char; begin c:=chr(300); end;
20. :
for c: =a to z do
if c IN A then write(c);
1. A
2. A
3.
21. :
1. .
2. . .
3. .
22. :
1.
|
|
|
2. -
3.
23. :
1. integer
2. real
3. char
24. ,
var : array [110] of real:
1. 10
2. 30
3. 60
25. 5 div 2:
1. 2.5
2. 1
3. 2
26. sqrt (4):
1. 2
2. 8
3. 16
27. :
1. A: set of integer
2. A: set of char
3. A: set of 1..100
28. :
1. file
2. text
3. file of
29. :
1. read
2. write
3. output
30. , :
1. const
2. var
3. type
31. :
1. INTERFACE
2. UNIT
3. IMPLEMENTATION
32. d =3: var a, b, c: integer; d: real;
1. 2 begin
2. 3 b: = a*a;
3. 4 : = a+b;
d: = c/a;
nd.
33. c =2, b=4, =3: while a<b do
Begin
2. 32 := c+a*b;
3. 19 := a+1;
nd;
34. =9, b=4: repeat
1. 4 b:= b+1;
2. 5 a:= a-b;
3. 6 c:= a+b;
until a≤0;
35. =2,b=4,=3,n=3: for i:=1 to n do
1. 15 := c+a*b;
2. 27
3. 35
36. , : var A: array [1..10] of integer; S,I: integer; SA: real;
1. begin S:=0;
2. for i:=1 to n do
3. S:=S+A[i];
SA:=S/n;
end.
37. S: for i:=1 to 5 do
1. 150 begin
2. 120 A [i]:=i; S:=S*A [i];
3. 100 end;
38. SQR(x) :
1.
2.
3.
39. :
1.
2.
3.
40. :
for i: = 1 to 100 do
if i IN A then k:=k+1
1. A
2. A
3.
41. :
1.
2.
3.
42. :
1.
2.
3.
43. :
1. integer
2. real
3. char
44. , var S: string[15]:
1. 16
2. 15
3. 45
45. odd(3):
1. false
2. true
3. 0
46. abs(-5):
1. 5
2. 25
3. -25
47. :
1.
2.
3.
48. :
1. file
2. text
3. file of
49. :
1. 1
2.1
3. time
50. goto:
|
|
|
1. var
2. type
3. label
51. :
1. INTERFACE
2. UNIT
3. IMPLEMENTATION
52. d =2, =3, =4:
1. 4 if (a<b) and (b<c) then d:= c-a+b
2. 5 lse
3. 6 if (a>b) and (b>c) then d:= a-b+c
lse
if (a>b) and (b<c) then d:= a-c+b;
53. c =3,=5,=1: while a<b do
1. 31 begin
2. 35 := c+a*b;
3. 36 := a+1;
nd;
54. =10, b=5: repeat
1. 5 b:= b+1;
2. 3 a:= a-b;
3. 4 c:= a+b;
until a≤0;
55. =3,b=2,=4,n=4: for i:=1 to n do
1. 28 := c+a*b;
2. 25
3. 23
56. , : var A: array [1..10] of integer; S,I: integer;
1. begin S:=0;
2. for i:=1 to n do
3. S:=S+A[i];
end.
57. S: for i:=1 to 6 do
1. 1.5 begin
2. 2.0 A [i]:=I; S:=S+A [i];
3. 3.5 end;
S:=S/I;
58. abs(x) :
1.
2.
3.
59. :
1.
2.
3.
60. :
for i: = a to z do
if i IN A then k:=k+1
1. A
2. A
3.
61. :
1.
2.
3.
62. - :
1. F1
2. F6
3. F9
63. :
1. char
2. Boolean
3. string
64. :
1. 64
2. 128
3. 256
65. ln(x) :
1.
2.
3.
66. round(4.8):
1. 5
2. 4
3. 0
67. :
1.
2.
3.
68. ASSIGN (f, ) :
1.
2.
3.
69. ord(c) :
1. 244
2. 128
3. 302
70. :
1. type
2. var
3. label
71. :
1. INTERFACE
2. UNIT
3. IMPLEMENTATION
72. d =2: var a, b, c: integer; d: real;
1. 2 begin
2. 3 b: = a*a;
3. 4 : = a+b;
d: = c/a;
nd.
73. c =2, b=4, =3: while a<b do
Begin
2. 19 := c+a*b;
3. 33 := a+1;
nd;
74. =9, b=4: repeat
1. 5 b:= b+1;
2. 6 a:= a-b;
3. 4 c:= a+b;
until a≤0;
75. =2,b=4,=3,n=3: for i:=1 to n do
1. 27 := c+a*b;
2. 35
3. 15
76. , : var A: array [1..10] of integer; S,I: integer;
1. begin S:=1;
2. for i:=1 to n do
3. S:=S*A[i];
end.
77. S: for i:=1 to 5 do
1. 20 begin
2. 22 A [i]:=i; S:=S*A [i];
3. 24 end;
S:=S/i;
78. :
1. +
2. *
3. /
79. :
|
|
|
1. record
2. array
3. set of
80. :
for i: = 1 to 255 do
if i IN A then write(i)
1. A
2. A
3.
81. :
1.
2.
3.
82. - :
1. Alt-F5
2. Ctrl-F9
3. Alt-X
83. , :
1.
2.
3.
84. :
1. real
2. integer
3. char
85. abs(x) :
1.
2.
3.
86. trunc(4.8):
1. 4
2. 5
3. 0
87. :
1. IF
2. IN
3. FOR
88. RESET (f) :
1.
2.
3.
89. :
1. Alt-F5
2. Ctrl-F9
3. Alt-X
90. :
1. label
2. var
3. type
91. :
1.
2.
3.
92. d =1: Var a, b, c: integer; d: real;
1. 2 begin
2. 3 b: = a*a;
3. 4 : = a+b;
d: = c/a;
nd.
93. c =3,=5,=1: while a<b do
1. 31 begin
2. 36 := c+a*b;
3. 35 := a+1;
nd;
94. =10, b=5: repeat
1. 4 b:= b+1;
2. 5 a:= a-b;
3. 3 c:= a+b;
until a≤0;
95. =3,b=2,=4,n=4: for i:=1 to n do
1. 25 := c+a*b;
2. 28
3. 23
96. , : var A: array [1..10] of integer; S,i: integer;
1. begin S:= A[1];
2. for i:= 2 to 10 do
3. if S<A[i] then S:=A [i];
end.
97. S: for i:=1 to 4 do
1. 24 begin
2. 22 A [i]:=i; S:=S*A [i];
3. 20 end;
98. :
1. +
2. *
3. /
99. , :
1. integer
2. real
3. char
100. :
for i: = 0 to 9 do
if i IN A then k:=k+1
1. A
2. A
3.
101. :
1. /1
2.
3.
102. - :
1. Alt-F5
2. Ctrl-F9
3. Alt-X
103. :
1. Boolean
2. char
3. integer
104. : string[10]:
1. C: array[1..10] of char
2. C: array[1..10] of integer
3. C: array[1..10] of real
105. round(x) :
|
|
|
1.
2.
3.
106. odd(0):
1. false
2. true
3. 0
107. , :
1.
2.
3. .
108. REWRITE (f) :
1.
2.
3.
109. :
1. =
2.:=
3. ==
110. :
1.const
2. var
3. type
111. , :
1.
2.
3.
112. d =2, =3, =4:
1. 4 if (a<b) and (b<c) then d:= c-a+b
2. 5 lse
3. 6 if (a>b) and (b>c) then d:= a-b+c
lse
if (a>b) and (b<c) then d:= a-c+b
113. c =2, b=4, =3: while a<b do
Begin
2. 33 := c+a*b;
3. 19 := a+1;
nd;
114. =9, b=4: repeat
1. 4 b:= b+1;
2. 6 a:= a-b;
3. 5 c:= a+b;
until a≤0;
115. =2,b=4,=3,n=3: for i:=1 to n do
1. 15 := c+a*b;
2. 35
3. 27
116. , : var A: array [1..10] of integer; S,i,k: integer;
1. begin S:= A[1];
2. for i:= 2 to 10 do
3. if S>A[i] then begin S:=A [i]; k:=i; end;
end.
117. S: for i:=1 to 4 do
1. 4 begin
2. 5 A [i]:=i; S:=S*A [i];
3. 6 end;
S:=S/i;
118. SQRT(x) :
1.
2.
3.
119. :
1.
2.
3.
120. :
for i: = 0 to 9 do
if i IN A then write(i)
1. A
2. A
3.
