1.Программаны курсор орналасқан жерге дейін орындау
<variant>F4
2.8, 4, -7, -2 элементтерінен тұратын А массиві берілген. S мәнін анықта:
s := 0;
for I := 1 to 2 do
if odd( A[ I ] ) then
s := s + A [ I ];
<variant>0
3.const N = 3; A: array[1..N, 1..N] of ShortInt =
((-4, 3, 7), (1, -9, 5), (-6, 7, 2));
var K, L, S: ShortInt;
begin
S := 0;
for L := 1 to N do
for K := L to N do
if Odd(A[K, L]) then
S := S + A[K, L];
End.
S айнамаласының мәнін анықта:
<variant>1
4.Экранда қандай мән шығады ?
Var mn1,mn2,mn3:set of 1..10;
i:integer;
begin mn1:=[1,2,3,4,5];
mn2:=[1,2,3];
mn3:=mn1* mn2;
for i:=1 to 10 do if i in mn3 then write(i:2);
end.
<variant>1 2 3
5.Төмендегі программа қандай жауап қайтарады?
Var k:integer;
Begin k:=21;
if (k mod 2=0) then
if (k>=10) and (k<=99) then
if(k mod 6=0) then
k:=pred(k)
else k:=succ(k) ;
writeln(k) ;
End.
<variant>21
6.Төмендегі программа қандай жауап қайтарады?
Var s:string; i:integer;
Begin s:='student';
for i:=1 to length(s) do
if(s[i]>='a') and(s[i]<'f') then s[i]:=upcase(s[i]) ;
writeln(s) ;
End.
<variant>stuDEnt
7.Төмендегі программа бөлігі орындалған соң экранға шығатын мәндерді анықта:
var X, Y: ShortInt;
begin
X := 64; Y := 63;
X := Y - X; Y := Y - X; X := X + Y;
WriteLn(X: 3, Y: 3);
<variant>63 64
8.‘True’ константасының типі қандай?
<variant>String
9.Төмендегі программа қандай жауап қайтарады?
Var k:integer;
Begin k:=11;
if not(k mod 2=0) then k:=k+10 else k:=k*2;
writeln(k) ;
End.
<variant>21
10.Төмендегі программа қандай жауап қайтарады?
Var n,i,k:integer;
Begin n:=7;k:=0;
for i:=1 to n do if(odd(i) ) then k:=k+1;
writeln(k) ;
End.
<variant>4
11.8, 4, -2, 7, 5, -3 - элементтерінен тұратын А массиві берілген: Р-ны анықта.:
p := 0;
for I := 2 to 3 do
if odd( A [ I ] ) then
p := p – A [ I ];
<variant>0
12.const N = 3; A: array[1..N, 1..N] of ShortInt =
((-4, 3, 7), (1, -9, 5), (-6, 8, 2));
var K, L, S: ShortInt;
begin
S := 0;
for K := 1 to N do
for L := K to N do
if Odd ( A[K, L]) then
S := S + A[K, L];
End.
S айнамаласының мәнін анықта:
<variant>6
13.Экранда қандай мән шығады ?
Var mn1,mn2,mn3:set of 1..10;
i:integer;
begin mn1:=[1,2,3,4,5];
mn2:=[1,2,3];
mn3:=mn1-mn2;
for i:=1 to 10 do if i in mn3 then write(i:2);
end.
<variant>4 5
14.Жиындарға операциялар қолданғандағы шығындыны ата?
['1', '2', '3'] * ['8', '9', '10']
<variant>[]
<question2>Төмендегі программа қандай жауап қайтарады?
Var k:integer;
Begin k:=20;
if (k mod 2=0) then
if (k>=10) and (k<=99) then
if(k mod 6=0) then
k:=pred(k)
else k:=succ(k) ;
writeln(k) ;
End.
<variant>21
<question2>Төмендегі программа қандай жауап қайтарады?
Var s:string; i:integer;
Begin s:='tuk-.-tak'; i:=1;
while(s[i]<>'. ') do
begin delete(s,i,1) ;
i:=i-1;
end;
writeln(s) ;
End.
<variant>uk-.-tak
<question2>Төмендегі программа бөлігі орындалған соң экранға шығатын мәндерді анықта:
var X, Y: Byte;
begin
X := 16; Y := 7;
X := Y; Y := X;
WriteLn('X=', X: 3, ',Y=', Y: 3, '!');
<variant>X= 7,Y= 7!
<question3>1, 2, -2, 0 - элементтерінен тұратын А массиві берілген. Y-тің мәнін тап.:
for J := 2 to 4 do
I := J ;
Y := A [ I ];
<variant>0
<question2>Экранда қандай мән шығады ?
Var mn1,mn2,mn3:set of 1..10;
i:integer;
begin mn1:=[1,2,3,4,5];
mn2:=[1,2,3];
mn3:=mn1+mn2;
for i:=1 to 10 do if i in mn3 then write(i:2);
end.
<variant>1 2 3 4 5
<question3>const A: Integer = 10; B: Integer = 16;
procedure P(var Y: Integer; X: Integer);
begin
X := X + 5; Y := Y - 5
end; {P}
begin {Негізгі программа}
P( A, B );
A := A mod ` 3; B := B div 3;
End.
A және B мәнiн анықта:
<variant>тұрақты мәнді өзгертуге болмайды
<question2>Төмендегі программа қандай жауап қайтарады?
Var k:integer;
Begin k:=10;
if ((k div 2) mod 2=0) then
if (k>10) then
k:=k+10
else if(k<=10) then k:=k-10;
writeln(k) ;
End.
<variant>10
<question2>Төмендегі программа қандай жауап қайтарады?