<question1>Программаны курсор орналасқан жерге дейін орындау

<variant>F4

<variant>F3

<variant>F8

<variant>F7

<variant>F9

<question2>8, 4, -7, -2 элементтерінен тұратын А массиві берілген. S мәнін анықта:

s := 0;

for I := 1 to 2 do

if odd( A[ I ] ) then

s := s + A [ I ];

<variant>0

<variant>8

<variant>-5

<variant>5

<variant>13

<question2>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

<variant>-8

<variant>8

<variant>-9

<variant>6

<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

<variant>1 2 3 4 5

<variant>5 4 3 2 1

<variant>4 5

<variant>1 1 2 2 3 3 4 5

<question2>Төмендегі программа қандай жауап қайтарады?

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

<variant>22

<variant>20

<variant>23

<variant>24

<question2>Төмендегі программа қандай жауап қайтарады?

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

<variant>DE

<variant>STUdeNT

<variant>STUDENT

<variant>DEDEDE

<question2>Төмендегі программа бөлігі орындалған соң экранға шығатын мәндерді анықта:

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

<variant>-1 -1

<variant>-2 -1

<variant>қате – қысқа бүтін тип мәндерінің аралығынан шығып кетеді

<variant>127 -1

<question1>‘True’ константасының типі қандай?

<variant>String

<variant>integer

<variant>Boolean

<variant>real

<variant>бұл константа емес, айнымалының аты

<question2>Төмендегі программа қандай жауап қайтарады?

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

<variant>20

<variant>22

<variant>11

<variant>10

<question2>Төмендегі программа қандай жауап қайтарады?

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

<variant>TRUE

<variant>FALSE

<variant>7

<variant>3

<question2>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

<variant>4

<variant>-2

<variant>2

<variant>-3

<question2>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

<variant>0

<variant>4

<variant>15

<variant>7

<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>4 5

<variant>1 2 3 4 5

<variant>5 4 3 2 1

<variant>1 2 3

<variant>5 4

<question1>Жиындарға операциялар қолданғандағы шығындыны ата?

['1', '2', '3'] * ['8', '9', '10']

<variant>[]

<variant>['8', '18', '30']

<variant> ['9', '11', '13']

<variant> ['1', '2', '3', '8', '9', '10']

<variant> [1, 2, 3, 8, 9, 10]

<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

<variant>22

<variant>20

<variant>23

<variant>19

<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

<variant>u-. -tak

<variant>u--tak

<variant>tuk-.

<variant>-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!

<variant>X= 7: 3,Y= 16: 3!

<variant>X= 7,Y= 16!

<variant>X=7, Y=7 !

<variant>X=7, Y=16 !

<question3>1, 2, -2, 0 - элементтерінен тұратын А массиві берілген. Y-тің мәнін тап.:

for J := 2 to 4 do

I := J ;

Y := A [ I ];

<variant>0

<variant>–1

<variant>-2

<variant>циклдің қайталануы

<variant>2.

<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

<variant>5 4 3 2 1

<variant>1 2 3 4 5 1 2 3

<variant>1 1 2 2 3 3 4 5

<variant>10

<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>тұрақты мәнді өзгертуге болмайды

<variant>0 5

<variant>1 7

<variant>1 3

<variant>1 1

<question2>Төмендегі программа қандай жауап қайтарады?