Var k:integer;
Begin k:=ord(copy('TEST',1,1) <>copy('TROS',1,1) ) ;
writeln(k) ;
End.
<variant>0
<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
<question2>Төмендегі программа қандай жауап қайтарады?
Var s:string;
Begin s:='student';
writeln(copy(s,2,2) +copy(s,7,1) ) ;
End.
<variant>tut
<question2>Төмендегі программа қандай жауап қайтарады?
Var s:string; i:integer;
Begin s:='test';
for i:=1 to 3 do s:=concat('?',s,'?') ;
writeln(s) ;
End.
<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
<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 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
<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
<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
<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
<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
<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
<question1>751 сегіздік санақ жүйесінен екілік санақ жүйесіне көшір (Х(8) → Х(2)):
<variant>111101001
<question1>31,25 сегіздік санақ жүйесінен ондық санақ жүйесіне көшір (Х(8) → Х(10)):
<variant>25,328.
<question1>А9Е он алтылық санақ жүйесінен екілік санақ жүйесіне көшір (Х(16) → Х(2)):
<variant>101010011110.
<question1>Турбо Паскаль 7.0 программа құру ортасының (ПО) Program reset командасы:
<variant>программаны жөндеуді тоқтату, жадыны азат ету.
<question1>Турбо Паскаль 7.0 программа құру ортасының Run мәзірі:
<variant>программаны орындаудың әр түрлі жағдайларын қарастырады.