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

<variant>0

<variant>20

<variant>5

<variant>30

<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>u-. -tak

<variant>uk-. -tak

<variant>u--tak

<variant>tuk-.

<variant>-tak

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

for J := 2 to 4 do

I := j mod 3 ;

Y := A[ I ];

<variant>1

<variant>0

<variant>-2

<variant>шексіз мән

<variant>2

<question2>Берiлген амалдар орындалғаннан кейiнгi х - айнымалысның мәнiн анықта?

Var mn1,mn2:set of 1..10;

X:integer;

begin mn1:=[1,2,3,4,5];

mn2:=[1,2,3];

if mn1>=mn2 then x:=0 else x:=1;

writeln(x);

end.

<variant>0

<variant>1

<variant>true

<variant>false

<variant>0 1

<question2>const  A: Integer = 10; B: Integer = 20; procedure P(var Y, X: Integer); begin X := X + 5; Y := Y - 5 end;  {P}

var x,y:integer;

begin  {негізгі программа} P( A, B );  x  := A mod 3; y := B div 3; write(x,'  ',y);End.  X және Y мәнiн анықта:

<variant>1 6

<variant>1 2

<variant>1 1

<variant>2 6

<variant>0 5

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

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

else k:=k*4

else k:=sqr(k) ;

writeln(k) ;

End.

<variant>40

<variant>20

<variant>0

<variant>100

<variant>10

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

Var n:word;

Begin n:=100;

n:=n-200;

writeln(n) ;

End.

<variant>мән диапазоннан асып кетеді

<variant>100

<variant>-100

<variant>-200

<variant>200

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

Var n:byte;

Begin n:=255;

n:=n+10;

writeln(n) ;

End.

<variant>мән диапазоннан асып кетеді

<variant>265

<variant>245

<variant>255

<variant>254

<question2>Екі жолға енгізу үшін 5.68 және 4.37; 1.89 және 2.76 сандар жұбы берілген, төмендегі программа орындалған соң экранға қандай мәндер шығарылады?

var A, B: Real;

begin

ReadLn( A ); ReadLn( B );

WriteLn('A=', A: 4: 1, ', B=', B: 4: 1, '!')

end.

<variant>A= 5.7,B= 1.9!

<variant>A= 5.6,B= 1.8!

<variant>A= 5.7,B= 4.4!

<variant>A=5.6 ,B=4.3 !

<variant>A=5.7 ,B=1.9 !

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

s := 0;

for I := 1 to 2 do

if odd( A [ I ] ) then

s := s + A [ I ];

<variant>5

<variant>10

<variant>8

<variant>-5

<variant>13

<question2>Берiлген амалдар орындалғаннан кейiнгi х - айнымалысның мәнiн анықта?

Var mn1,mn2:set of 1..10;

X:integer;

begin mn1:=[1,2,3,4,5];

mn2:=[6,7,8];

if mn1>=mn2 then x:=0 else x:=1;

writeln(x);

end.

<variant>1

<variant>0

<variant>true

<variant>false

<variant>0 1

<question2>const A: Integer = 10; B: Integer = 20;

procedure P( X, Y: Integer);

begin

X := X - 5; Y := Y + 5

end; {P}

begin {негізгі программа}

P( A mod 3, B div 3);

End.

A және B мәнiн анықта:

<variant>10 20

<variant>-2 7

<variant>1 6

<variant>5 25

<variant>-4 11

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