Var k:integer;

Begin k:=ord(copy('TEST',1,1) <>copy('TROS',1,1) ) ;

writeln(k) ;

End.

<variant>0

<variant>TRUE

<variant>FALSE

<variant>1

<variant>ord( FALSE )

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

Var i,s:integer; m: set of 1. . 10;

Begin m:=[3. . 6];s:=0;

for i:=1 to 10 do if(i in m) then s:=s+i;

writeln(s) ;

End.

<variant>18

<variant>55

<variant>9

<variant>11

<variant>15

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

Var s:string;

Begin s:='student';

writeln(copy(s,2,2) +copy(s,7,1) ) ;

End.

<variant>tut

<variant>tudt

<variant>stt

<variant>tun

<variant>ent

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

Var s:string; i:integer;

Begin s:='test';

for i:=1 to 3 do s:=concat('?',s,'?') ;

writeln(s) ;

End.

<variant>???test???

<variant>?test?

<variant>??test??

<variant>???test??

<variant>test??????

<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

<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 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 s:string; i:integer;

Begin s:='2012god';

for i:=1 to length(s) do

if(s[i]>='1') and(s[i]<'9') then s[i+1]:=upcase(s[i+1]) ;

writeln(s) ;

End.

<variant>2012God

<variant>ERROR

<variant>2006GOD

<variant>20o6God

<variant>20o GOD

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

Var s:string; n,i:integer;

Begin s:='t+e+++st'; i:=1; n:=length(s) ;

while(i<=n) do

begin if(s[i]='+') then delete(s,i,1) ;

else i:=i+1; n:=length(s) ; end;

writeln(s) ;

End.

<variant>test

<variant>te+st

<variant>te++st

<variant>t+est

<variant>tet

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

Var s:string; n,i:integer;

Begin s:='t+e+++st'; i:=1; n:=length(s) ;

while(i<=n) do

begin if(s[i]='+') then delete(s,i,1) ; i:=i+1; n:=length(s) ;end;

writeln(s) ;

End.

<variant>te+st

<variant>te++st

<variant>t+est

<variant>tet

<variant>test

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

Unit modul1;

Interface Procedure pow( a,n:integer; Var x:longint) ;

Implementation

var i:integer;

Procedure pow;

begin x:=1;

for i:=1 to n do x:=x* a ;

end;

Begin End.

uses modul1;

var x1,x2:longint;

begin pow(4,2,x1) ; pow(2,5,x2) ;

writeln(x1,'+',x2,'=',x1+x2) ;

end.

<variant>16+32=48

<variant>4+2=6

<variant>2+5=7

<variant>4+5=9

<variant>2+2=4

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

Unit modul2;

Interface Procedure zamen( a:integer; Var b:integer) ;

Implementation

var a1,a2,a3:integer;

Procedure zamen;

begin a1:=a div 100;

a2:=( a div 10) mod 10;

a3:= a mod 10;

b:=a3*100+a2*10+a1;

end;

begin end.

uses modul2;

var x:integer;

begin zamen(789,x) ; writeln(x) ; end.

<variant>987

<variant>978

<variant>798

<variant>879

<variant>789

<question1>751 сегіздік санақ жүйесінен екілік санақ жүйесіне көшір (Х(8) → Х(2)):

<variant>111101001

<variant>111101100.

<variant>101110100.

<variant>111110001.

<variant>110010101.

<question1>31,25 сегіздік санақ жүйесінен ондық санақ жүйесіне көшір (Х(8) → Х(10)):

<variant>25,328.

<variant>25,327.

<variant>25,08.

<variant>32,328.

<variant>32,25.

<question1>А9Е он алтылық санақ жүйесінен екілік санақ жүйесіне көшір (Х(16) → Х(2)):

<variant>101010011110.

<variant>100110101110.

<variant>100111101010.

<variant>111010101001.

<variant>101011101001.

<question1>Турбо Паскаль 7.0 программа құру ортасының (ПО) Program reset командасы:

<variant>программаны жөндеуді тоқтату, жадыны азат ету.

<variant>программаны өңдеу терезесі ашылады.

<variant>ағымды терезедегі файлды компиляциялау.

<variant>ішкі программаларға кірмей қадам бойынша программаны орындау.

<variant>қолданушы терезесі ашылады.

<question1>Турбо Паскаль 7.0 программа құру ортасының Run мәзірі:

<variant>программаны орындаудың әр түрлі жағдайларын қарастырады.

<variant> мәтінді өзгерту параметрлерін орнатуға мүмкіндік береді.

<variant> мәтінді файлға сақтайды.

<variant>Alt клавишасын басқанда іске қосылады.

<variant> мәтіндегі сөздерді іздеуге мүмкіндік береді.