Begin
Readln(a,b,c);
If (a>b) and (a>c) then y:=a;
If (b>a) and (b>c) then y:=b else y:=c;
Writeln(y);
End.
A) Ү ң ң ү қ +
81. ө :
A) Goto +
82. ̳ ү ә әң ұ ... .
A) +
83. қ
A) boolean +
84. қ ?
A) >=
B) +
C) =
D) <=
E):=
85. қ ү ө ң:
A) Real, single, double, extended, comp +
86. DELETE қ
A) қ қ ө +
87. қ қ қғ
A) Str +
88. қ
A) +
89. BEGINEND қ қ ғ қ
B) құқ +
90. Cos(x) ң ә
B) real; +
- қ ?
A); +
92. ң ө қ ү ө қ ү (:) қ, ?
A) Var +
93. ң ұ ғ өң: x2, 
, ½x½, ex
) sqrt(x) B) sqrt(x) C) sqr(x) D) sqr(x) E) sqr(x)
sqr(x) sqr(x) sqrt(x) sqrt(x) sqrt(x)
abs(x) abc(x) abs(x) abs(x) abc(x)
exp(x) exp(x) exp(x) exf(x) exp(x)
+
94. қ ң .
A) Or +
95. High(x) қ қ қ?
A) ң ә ; +
UPCASE
) ң ә ә +
97. Begin, end қ ө - .
A) қ қ +
98. A(5):ң ұ ө:
C) TYPE T=array [1...5] of real; VAR A:T; +
99. ұқң ұ ұғ ө
E) CONST a:=10; b:=7; c:=6 +
100. (2+ 25 div 5) mod 2 өң ә ң:
D) 1 +
ү ң ү ө ң:
A) Byte, shortint, integer, word, longint +
102. Y: = ң өң:
A) y: string; +
103. ө
A) If +
104. (10<20) and (45>25) өң ә қң.
A) True +
105. Goto...
A) ө +
106. ң
A) 2 . +
107. ғ ү қ
|
|
|
A) Write( , ) +
108. қ қ қ ғ
D) Val +
109. D:=sqr(b)-4*a*c өң қ ң:
A) D=b2-4ac +
110. ө ?
Var a: array[1..5]of integer;
Y, i: integer;
Begin
Y:=0;
For i:=1 to 5 do
Begin
read(a[i]);
y:=y+a[i];
End;
End.
A) ң қ +
111. A: = 114300 ң өң:
A) A: longint; +
112. LENGTH ң қ қ?
A) қ қң ұғ +
113. қ қң ұғ ң қ ү
A) Pos +
114. ң ң :
) Case p of
C1: 1-;
C2: 2-;
............................
Cn: n-;
Else ;
End; +
115. ұ ң:
A) Var A:array [1..12]of char; +
116. A[6,8] ө ө ң:
A) Var A:array [1..6, 1..8]of string;
117. Byte ө ғ ү.
A) Chr(x) +
118. [1,4,5]*[2,3,6] өң ә ң.
C) [] +
119. (1+ 25 div 5) mod 2 өң ә ң:
B) 0 +
120. қ қң ұғ
D) length +
121. өң ә ң: 1) 21 div 4; 2) 21 mod 4;
A) 5; 2) 1 +
122.қ қғ қ ү
A) Insert +
INCLUDE
A) ң ғ +
124. ү қ ө қ?
A) Array of +
125. Қ- қ ә қ
A) +
126. ң ң.
A) Repeat +
127. ө :
A) +
128. :
B) Run +
129. ө ғ ә b ң ә ң ?
A:=1; b:=1;
Repeat
A:=a+2; b:=b+1;
Until a<=8;
D) A:=3; b:=2 +
Insert ...
E) қ қғ қ +
131. var t: string[5]; , t ө?
A) 5 +
132.ғ қ
A) қ, ө, +
133. ө ң :
A) Var :array [1.. ұғ]of ү; +
134. ...
A) қ- қ ә қ .+
135. Ә ү ұ ... .
A) қ қ +
136. Turbo Pascal-ғ ү қ
|
|
|
A) System +
137. қ, қ, қ;
A) ң ү +
138. 451000000000 қ ң ү ұ :
B) 4,51E+11; +
139. ң ә ә
E) Upcase +
140. [1,2,3,4,5]+[2,3,6] өң ә ң.
B) [1,2,3,4,5,6] +
141. қ қ ө ү
A) Copy +
142. ң ө .
A) +
143. A[3,5] ө ө ң:
A) Var A:array [1..3, 1..5]of real; +
144. ұ ң:
A) Var :array [1..10]of char; +
145. ә ққ ө ң:
A) Hewlett<= Hewlett Packard +
146. Әү ү ң ғ қ ?
A) +
147. (10) ң ұ ө:
A) TYPE T=array [1..10] of real; VAR X:T; +
148. ғ ң ұ ө:
A) z:= x/y 1/x*x +
149. ClrScr ң қ қ?
A) +
150. қ ү қ .
A) F2 +
151. CONCAT -
A) қ қ +
152. A[5,5] ө ө ң:
E) Var A:array [1..5, 1..5]of real; +
153. ә:
A) ҳ ң, +
154. ң :
A) FOR K: = M TO N DO
Ѳ; +
155. өң ң ұ ңң:
A:=Ққ ;
Writeln (LENGTH ());
B) 22 +
156. ө ң қ ?
A) Goto ; +
157. ң.
B) For +
158.
- ң
қ ә +
159. Sqrt(X) ң ә .
E) real+
160. ә қ қ ң ә ө... .
D) +
161. ң
A) ң ң ұ . +
162. Қ
A) While, repeat +
163. Қ
A) For +
164. Round(x) қ қ қ?
A) қ ү ғ өң; +
165. ң.
A) While +
166. ң
A) Var : set of ; +
167. Ө ө қ қ ?
A) +
168. Y(7) ң ұ өң
A) TYPE Z=array [1..7] of real; VAR Y:Z; +
169. ң ққғ ү:
C) If then +
170. ә қ ң .
B) And +
ө ң :
A) Var : array [1..қ , 1..ғ ]of ү; +
172. Trunc(x) қ қ қ?
A) қ ү ғ өң; +
173. ң ң :
A) REPEAT
; +
|
|
|
UNTIL ;
174. -ң қ ү ?
A) Sqr(x) +
175. ң :
A) Var : text; +
176. ң :
A) Var : file; +
177. ң қ
A) ң қ ө +
178. өң ң ұ ңң:
:=6
If (>0) and (<7) then z:=3*y else z:=Sqr(y)*2;
Writeln(x);
B) 18 +
179. өң ң ұ ңң:
:=10
If (>0) and (<7) then z:=3*y else z:=Sqr(y)*2;
Writeln(x);
E) 200 +
180. ң ү қ қ?
K:=5; r:=15;
For i:=k to r+k do
A) 15 +
181. ү ұ A ң:
C) Var A: array [1..10]of integer; +
182.Const қ ө ?
A) ұқ +
183. - қ ?
A);
B):
C).
D),
E)!
184. ң қ :
E) EOF +
185.Close ң қ қ?
A) ғ +
186. Turbo Pascal ң ғ ғ SYNTAX ERROR қ ?
E) қ +
187. ғ ұ ө өң
A) Y: = 2*cos(x-2) +
188. ң ү қ қ?
K:=1; r:=13;
For i:=k to r*2 do
C) 26 +
189. Random(x) ң қ
A) 0 ғ ү ң +
190. EOF ң қ.
E) ң қ +
191. :
A) ң ө ; +
192.ң қ ө ?
A) ә қ қ ң ә ө. +
193.Chr(x) қ қ қ?
A) () ғ ; +
194. ү ұ қ ?
A) ү +
195.Case қ ө қ қ?
) +
196.25 div (-3) = өң ә қ?
A) -8 +
197.ғ
A) Write +
198.a2+b2 ө ң.
A) Sqr(a)+ Sqr(b) +
199.31*1014 қ ң ү ұ :
A) 31E+14; +
200.(0<10) and (10<11) қ өң ә қ?
A) True +
B) 0
201. ң :
A) WHILE Do
; +
202.ү ң :
C) Var : file of ү; +
203.X ң қ ү ?
E) Ln(x) +
204. ә қ қ ң ә ө... .
D) +
205.ү ө (ү ү ғ ө өң ү ө )
|
|
|
A) MOD +
206. қ ?
K:=0;
For i:=1 to k+3 do
T:=k+1;
D) 3 +
207.Sin(x)+2*Sqrt(y)+z өң ә қ ?
A) Real +
208.
| ab | +d4 қ ө . |
| c |
C) a*b/c+d*d*d*d +
209.өң ү қғ қ
A) MOD +
210. ө :
B) +
211.Ord(x) қ қ қ?
A) () ғ ; +
212.Reset ң қ?
A) қ ү +
213.қ ү қ қ ?
A) +
214. ә қ қ ң ә ө... .
A) +
215. A=24 B=2 , A mod B өң ә ң?
A) 12 +
216.[1,4,5]*[2,3,6] өң ә ң.
A) [1,2,3,4,5,6] +
217.Var Sl:string[15]; Sl:= ғ ә қ қ Sl ғ ң қң.
A) Pos(,sl) +
218.(15 div 3)+(15 mod 3)= өң ә қ?
A) 10 +
219.[1,2,3,4,5]*[2,3,6] өң ә ң.
A) [2,3] +
220.Compile ү ө қ ғ ?
A) +
221.қ ү қ қ ?
A) +
222.қ қ ү қ қ ?
A) GRAPH +
223. қ ?
A) Assign +
224.Function қ ө ?
A) +
225.Ctrl+F9 қ қ қ?
A) ғ +
226. өң ң ұ ңң:
X:=6
If (x>0) and (x<7) then y:=2*x else y:=Sqr(x);
Writeln(x);
A) 12 +
227.ө ң қ қ қң.
Program esep;
Const n=6;
Var i, sum: integer;
Begin
Sum:=0;
For i:=1 to 2*n do
Sum:=sum+I;
Write(sum);
End.
A) 78 +
228.sin(x)+cos() өң ә қ ?
A) Real +
229.ө ?
Var a, b, y:real;
Begin
Readln(a,b);
If a<b then y:=a else y:=b;
Writeln(y);
End.
A) ң ң қ +
230.Circle ң қ?
A) ң +
231.Reset ң қ?
A) қ ү +
232. ң қ ң:
PROGRAM PROVERKA;
Const x=5;
Var y, z: integer;
BEGIN
Y:=z*x;
X:=y+z;
Writeln(y);
END.
A) ұқғ ; +
233.Uses ү қ?
A) ң қ +
234.(a2+b2)*3 ө ң.
A) (Sqr(a)+Sqr(b))*3 +
235.Turbo Pascal ң ғ ғ UNKNOWN IDENTIFIER қ ?
A) қғ +
236. ClrScr қ ү қ қ қ?
A) Crt +
237.File ә Change dir ө қ қ қ?
A) қ;
B) қ қғ қ;
C) қ;
D) ғғ ;
238. ү ө ғ ғ ?
E) File/Dos Shell ғғ . +
239.5>9 қ өң ә қ?
A) False +
240.ө ң қ ?
A) Goto ; +
241.16 div 4*2 өң ә қ.
|
|
|
A) 2 +
242.Sin(x)+2*cos(y)+z өң ә қ ?
A) Real +
243. ғң
A) Alt+X +
244.|x| қ .
A) Abs(x) +
245. ғ a, b, s қ ә ?
a:=1; b:=1;
while a+b<8 do
Begin
a:=a+1; b:=b+2;
End;
s:=a+b;
A) a=1, b=1, s=5
B) a=3, b=5, s=11
C) a=4, b=5, s=9
D) a=2, b=5, s=8
E) a=5, b=3, s=8
246.Edit ү ө қ ғ ?
A) ү +
247.Turbo Pascal ң ұ ғң қ ?
A) Turbo Pascal +
248. a=false ә b=false , true қ ү қ қ ғ ?
A) a and b +
249. ң қ ң:
PROGRAM PROVERKA;
Const x=5;
Var y, z: integer;
BEGIN
Read(z);
Y:=z/x;
Writeln(y);
END.
A) ұ ғ; +
250. ө m-ң ә қң.
m:=0;
while m<7 do
m:=m+1;
A) 7 +
251.z:=(x/5+y)*4 ә x=5, y=10 , z-ң ә ң?
A) 44 +
252. A=25 B=2 , A mod B өң ә ң?
A) 1 +
253.ө ғ қ ә ғ?
Program esep;
Var a,b: integer;
Begin
Read(a,b,a); write(a,b,a);
End.
A) қ +
254.0,000000653 ң ү ұ .
A) 6,53E-7 +
255.ң ү қ қ?
K:=1; r:=10;
For i:=k+1 to r+k do
A) 10 +
256. өң ң ұ ңң:
A:=;
Writeln (LENGTH ());
A) 7 +
257. ң қ ң.
Program proverka;
Var y,a: integer;
Begin
Y:=sin(a);
Writeln(y);
End;
A) ә - ө ; +
258. қ ұ
A) OutText, OutTextXY, SetTextStyle +
259.ғ
A) Close +
260.X ң қ ү ?
A) Sqr(x) +
261.A:= ғ;
b:=copy(a,1,6);
ө b-ң ә ң ?
A) +
262.Sl:= ғ қ қ ө қ .
A) Delete(sl,3,5) +
263.ң ү қ қ?
K:=5; r:=15;
For i:=k+1 to r+k do
A) 16 +
264. ө m-ң ә қң.
m:=0;
while m<3 do
m:=m+1;
A) 3 +
265.Turbo Pascal ү ү қ :
A) {} +
266.ө өң ә қ?
56 div 6 =
A) 9 +
267.ө өң ә қ?
56 mod 6 =
) 2 +
268.ө ң ң a, b, s ә ң?
A:=1; b:=1;
While a+b<8 do
Begin
A:=a+1; b:=b+2;
End;
S:=a+b;
A) 8 +
269.қ ү қ қ ?
A) +
270. ғ ұ ө өң
A) Y: = 3*sin(x-2) +
271.For i:=2 downto 0 do
Write(i);
ө қ қ қ?
A) ғ 2- 0- ғ; +
272.қ өң ә қ?
5<>-9
A) True +
273. қ ?
If x>=y then x:=0; y:=0 else write(z);
A) Then қ ө ; +
274.N:=1; N:=N+1; N:=N*N; N:=N2; ғ N қ ә ?
A) N:=16 +
275.Rectangle ң қ?
A) өұ +
276.ң ү қ қ?
K:=1; r:=5;
For i:=k to r+k do
A) 6 +
277.Repeat until ұ...
A) ң +
278.TurboPascal ғ ғ Unknown identifier қ ?
A) ғ +
279.A[5,7] ө ө ң:
A) Var A:array [1..5, 1..7]of real; +
280. ң.
A) While +
281.Turbo Pascal-ң қ қ қғ ?
A) File/Save as +
282. ғ ң
A) Ctrl+F9 +
283.1+19 mod 5 өң ә қ.
A) 5 +
284.F2 Turbo Pascal- қ қ қ?
A) қ; +
285.File ә ү ү қ?
A) ғ ү +
286.ө ғ қ ә ғ?
Program esep;
Var a,b: integer;
Begin
a:=5; b:=6; c:=1;
Write(a,b,a);
End.
A) 565 +
287.Outtext ң қ қ?
A) ғ ә ғ +
288. ө ?
Var a, b, y:real;
Begin
Readln(a,b);
If a>b then y:=a else y:=b;
Writeln(y);
End.
A) ң ң ү қ +
289.Y: = ң өң:
A) y: string; +
290. өң ң ұ ңң:
A:=Ққ;
Writeln (LENGTH ());
) 9 +
291. өң ң ұ ңң:
X:=abs(-10);
Y:=2;
If (x>0) or (y<0) then z:=x/y
Else z:=x*y;
Writeln(z);
A) 5 +
292. ү ө Turbo Pascal ғ қ?
A) File/Exit +
293.451000000000 қ ң ү ұ :
A) 4,51E+11; +
294.Alt+X қ ?
A) B) Turbo Pascal ұ қ +
295.F1 қ қ қ?
A) ө қ +
296. ө m-ң ә қң.
m:=0;
while m<10 do
m:=m+1;
A) 10 +
297.Crt ...
D) қ қ +
298. ү қ .
E) F10 +
299.F10 ң қ.
C) ү ө +
300.Array of ө ... қ
A) ү +
