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
<question1>-1, 2, -2, 0. элементтерінен тұратын А массиві берілген. Y айнамаласының мәнін анықта:
for J := 2 to 4 do
I := j mod 3 ;
Y := A[ I ];
<variant>1
<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
<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
<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
<question1>Төмендегі программа қандай жауап қайтарады?
Var n:word;
Begin n:=100;
n:=n-200;
writeln(n) ;
End.
<variant>мән диапазоннан асып кетеді
<question1>Төмендегі программа қандай жауап қайтарады?
Var n:byte;
Begin n:=255;
n:=n+10;
writeln(n) ;
End.
<variant>мән диапазоннан асып кетеді
<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!
<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
<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
<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
<question3>Төмендегі программа қандай жауап қайтарады?
Var k:integer;
Begin k:=8;
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>64
<question2>A := 3.14159265; B := 2.7182818;
WriteLn( A: 7: 4, Round( B ): 2);
Оператор бойынша экранға дұрыс шығарылатын мәнді көрсет:
<variant>3.1416 3
<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
<question2>-3, 7, 4, 6, -2, -3 элементтерінен тұратын А массиві берілген. Р-нің мәнін анықта :
p := 0; ;
for I := 3 to 4 do
if not odd( I ) then
p := p + A[ I ];
<variant>10
<question2>1, 2, -2, 0 - элементтерінен тұратын А массиві берілген. Y-тің мәнін тап.:
for J := 2 to 4 do
I := J ;
Y := A[ I ];
<variant>0
<question3>type Mat = array[ 1..3, 1..3 ] of integer; var A: Mat;
var K, L, M: integer;
begin
M := A[ 1, 1 ]; for K := 1 to 3 do
for L := 1 to 3 do
if M < A[ K, L ] then M := A[ K, L ];
end;
матрицасы берiлген
M-ды тап.
<variant>5
<question3>8, 4, -2, 7, 5, -3 - элементтерінен тұратын А массиві берілген: Р-ны анықта.:
p := 0;
for I := 2 to 3 do