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
<variant>18
<variant>32
<variant>-2
<variant>2
<question2>A := 3.14159265; B := 2.7182818;
WriteLn( A: 7: 4, Round( B ): 2);
Оператор бойынша экранға дұрыс шығарылатын мәнді көрсет:
<variant>3.1416 3
<variant>3.1416E+0001 3
<variant>қате – форматы шығарылатын мәннің типіне сәйкес келмейді
<variant>3.1415 2
<variant>3.1415 2.72
<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>-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
<variant>-1
<variant>4
<variant>17
<variant>14
<question2>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.
<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
<variant>4
<variant>2
<variant>3
<variant>0
<question3>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
<question3>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
<question3>8, -3, -7, -2. элементтерінен тұратын А массиві берілген S айнамаласының мәнін анықта:
s := 0;
for I := 1 to 2 do
If odd( a[ I ] ) then
s := s + A[ I ];
<variant>-3
<variant>10
<variant>8
<variant>3
<variant>11
<question3>5, 8, -3, 4, -7, -2. элементтерінен тұратын А массиві берілген S айнамаласының мәнін анықта:
s := 0;
for I := 1 to 2 do
if odd(I) then
s := s + a[I];
<variant>5
<variant>8
<variant>-5
<variant>15
<variant>13
<question3>3, -7, -4, -6, 2, 3 элементтерінен тұратын А массиві берілген. P айнамаласының мәнін анықта:
p := 0; ;
for I := 3 to 4 do
if not odd( a[I] ) then
p := p + A[ I ];
<variant>-10
<variant>-1
<variant>4
<variant>17
<variant>14
<question3>3, 7, 4, 2, 2, 3 элементтерінен тұратын А массиві берілген. P айнамаласының мәнін анықта:
p := 0;
for I := 3 to 4 do
if not odd(a[ I ] ) then
p := p - A[ I ];
<variant>-6
<variant>6
<variant>4
<variant>10
<variant>14
<question2>-3, 7, 4, 6, -2, -3 элементтерінен тұратын А массиві берілген. P айнамаласының мәнін анықта:
p := 0; ;
for I := 6 downto 4 do
if not odd( I ) then
p := p + A[ I ];
<variant>3
<variant>-1
<variant>4
<variant>17
<variant>14
<question2>-1, 2, -2, 0 элементтерінен тұратын А массиві берілген. Y айнамаласының мәнін анықта:
for J := 2 to 4 do
I := j div 2 ;
Y := A[ I ];
<variant>2
<variant>–1
<variant>-2
<variant>шексіз мән
<variant>0
<question2>-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
<question3>type Mat = array[ 1..3, 1..3 ] of integer;
var A: Mat;
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;
матрицасы
берілген. M
- ді анықта.
<variant>15
<variant>4
<variant>2
<variant>3
<variant>0
<question3>type Mat = array[ 1..3, 1..3 ] of integer;
var A: Mat;
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;
матрицасы
берілген. M
- ді анықта
<variant>-10
<variant>4
<variant>2
<variant>3
<variant>0
<question3>type Mat = array[ 1..3, 1..3 ] of integer;
var A: Mat;
K, L, M: integer;
begin
M := A[ 1, 1 ];
for K := 1 to 1 do
for L := 1 to K do
if M > A[ K, L ] then M := A[ K, L ];
end;
матрицасы
берілген. M
- ді анықта
<variant>-10
<variant>10
<variant>2
<variant>3
<variant>0
<question3>type Mat = array[ 1..3, 1..3 ] of integer;
var A: Mat;
K, L, M: integer;
begin
M := A[ 1, 1 ];
for K := 1 to 3 do
for L := 3 to 1 do
if M > A[ K, L ] then M := A[ K, L ];
end;
матрицасы
берілген. M
- ді анықта
<variant>0
<variant>4
<variant>21
<variant>2
<variant>3
<question3>S := 1; K := 1;
while K < 5 do
K := K + 1; S := S + K;
S айнамаласының мәнін анықта:
<variant>6
<variant>10
<variant>5
<variant>14
<variant>15
<question3>const N = 3; A: array[0..N] of ShortInt = (-3, 5, -5, 0);
var I, J, K, X, Y: ShortInt;
begin
for J := 0 to N-1 do
begin
K := J;
for I := J+1 to N do
if A[I] > A[K] then K := I;
X := A[K];
A[K] := A[J];
A[J] := X
end;
Y := A[0];
Y айнамаласының мәнін анықта:
<variant>қате, тұрақты мәндә өзгертуге болмайды
<variant>0
<variant>-5
<variant>массив индексінің шектен тыс қатесі
<variant>-3
<question3>const N = 3; A: array[0..N] of ShortInt = (-8, 4, -4, 7);
var I, J, K, X, Y: ShortInt;
begin
for J := 0 to N-1 do
begin K := J; X := A[K];
for I := J+1 to N do
if A[I] > X then begin
K := I; X := A[K]
end;
A[K] := A[J]; A[J] := X
end;
Y := A[0];
Y айнамаласының мәнін анықта:
<variant>қате, тұрақты мәндә өзгертуге болмайды
<variant>4
<variant>-4
<variant>массив индексінің шектен тыс қатесі
<variant>-8
<question3>const N = 6; A: array[1..N] of ShortInt = (-4, -8, 8, 3, -7, 4);
var K, KM, M: ShortInt;
begin
M := -1;
for K := 1 to N do
if Abs(A[K]) > M then begin
M := Abs(A[K]); KM := K
end;
WriteLn(A[KM]);
Экранда қандай мән шығады ?
<variant>қате, индекс массив шекарасының сыртында
<variant>3
<variant>8
<variant>6
<variant>-1
<question3>const N = 6; A: array[1..N] of ShortInt = (-5, -6, 7, 2, -7, 5);
var K, KM, M: ShortInt;
begin
M := -1;
for K := 1 to N do
if Abs(A[K]) < M then begin
M := Abs(A[K]); KM := K
end;
WriteLn(A[KM]);
Экранда қандай мән шығады ?
<variant>массив элементінің индекстегі анықталмаған қатесі
<variant>-7
<variant>7
<variant>2
<variant>-1
<question3>const M = 3; N = 2;
A: array[1..M, 1..N] of ShortInt = ((-4, 3), (6, -9), (-6, 8));
B: array[1..M] of ShortInt = (-1, -1, -1);
var K, L: ShortInt;
begin
for K := 1 to M do
for L := 1 to N do
if Abs(A[K, L]) > B[K] then
B[K] := Abs(A[K, L]);
WriteLn(B[1], ' ', B[2], ' ', B[3]);
Экранда қандай мән шығады ?
<variant>қате, тұрақты мәнін өзгертуге болмайды
<variant>-4 -9 8
<variant>-1 -1 -1
<variant>-4 6 -6
<variant>3 6 8
<question3>const M = 2; N = 3;
A: array[1..M, 1..N] of ShortInt = ((-3, -2, -7), (-9, -5, 8));
var K, L: ShortInt;
B: array[1..M] of ShortInt;
begin
for K := 1 to M do begin
B[K] := A[K, 1];
for L := 2 to N do
if A[K, L] > B[K] then
B[K] := A[K, L]
end;
WriteLn(B[1], ' ', B[2]);
Экранда қандай мән шығады
<variant>-2 8
<variant>-7 -9
<variant>-3 -9
<variant>-2 -9
<variant>-7 8
<question3>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];
S айнамаласының мәнін анықта:
<variant>6
<variant>0
<variant>4
<variant>15
<variant>7
<question3>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];
S айнамаласының мәнін анықта:
<variant>-1
<variant>-8
<variant>8
<variant>-9
<variant>6
<question3>const A: array[1..6, 'K'..'O'] of ShortInt =
((2, 2, 2, 0, 0), (0, 0, 0, 0, 3), (4, 4,-1,-1, 0),
(0, 0, 0, 0, 5), (6, 0, 0,-1, 0), (0, 0, 0, 0,-1));
S: string = 'MOLOKO';
var K, L: ShortInt;
begin
K := 1; L := 1;
while (L <= Length(S)) and (K > 0) do begin
K := A[K, S[L]];
L := L + 1;
Write(' ', K)
end;
WriteLn;
Экранда қандай мән шығады
<variant>2 3 4 5 6 -1
<variant>2 3 4 5 6 0
<variant>2 3 4 5 -1
<variant>2 3 -1
<variant>2 3 4
<question3>const A: array[1..6, 'K'..'O'] of ShortInt =
((2, 2, 2, 0, 0), (0, 0, 0, 0, 3), (4, 4,-1,-1, 0),
(0, 0, 0, 0, 5), (6, 0, 0,-1, 0), (0, 0, 0, 0,-1));
S: string = 'LOKON';
var K, L: ShortInt;
begin
K := 1; L := 1;
while (L <= Length(S)) and (K > 0) do begin
K := A[K, S[L]];
L := L + 1;
Write(' ', K)
end;
WriteLn;
Экранда қандай мән шығады
<variant>2 3 4 5 -1
<variant>2 3 4 5 6 0
<variant>2 3 4 5 0
<variant>2 3 -1
<variant>2 3 4
<question2>Операторлар тізбегі берілген:
a:=1; b:=1;
while a+b<2 do
begin
a:=a+1; b:=b+2
end;
s:=a+b
Цикл неше рет орындалады.
<variant>бір ретте орындалмайды
<variant>1 рет
<variant>2 рет
<variant>3 рет
<variant>4 рет
<question2>Операторлар тізбегі берілген:
a:=1; b:=1
repeat
a:=a+1; b:=b+2
until a+b>2
Цикл неше рет орындалады.
<variant>1 рет
<variant>бір ретте орындалмайды
<variant>3 рет
<variant>2 рет
<variant>4 рет
<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>Бер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>Экранда қандай мән шығады ?
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
<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
<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 mn1,mn2,mn3:set of 1..10;
i:integer;
begin mn1:=[1,2,3,4,5];
mn2:=[1,2,3];
mn3:=mn1* mn2-[4,5];
for i:=1 to 10 do if i in mn3 then write(i:2);
end.
<variant>1 2 3
<variant>5 4 3 2 1
<variant>*1 2 3
<variant>4 5
<variant>0
<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);
A және B мәнiн анықта:
<variant>10 20
<variant>-2 7
<variant>1 6
<variant>5 25
<variant>-4 11
<question2>const
A: Integer = 10; B: Integer = 20;
procedure P(var Y, X: Integer);
begin
X := X + 5; Y := Y - 5
end; {P}
begin {Негізгі программа}
P( A, B );
A := A mod 3; B := B div 3;
A және B мәнiн анықта:
<variant>қате, тұрақты мәні өзгермейді
<variant>1 2
<variant>1 1
<variant>2 6
<variant>0 5
<question2>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;
A және B мәнiн анықта:
<variant>10 16
<variant>0 5
<variant>1 7
<variant>1 3
<variant>1 1
<question2>const
A: = 7; B:=5;
procedure P(Y: Integer; var X: Integer);
begin
X := X + 5; Y := Y - 5
end; {P}
begin {Негізгі программа}
P( A, B );
A := A mod 3; B := B div 3;
A және B мәнiн анықта:
<variant>2 2
<variant>0 5
<variant>2 5
<variant>1 3
<variant>3 0
<question3>const N = 3;
type
TA = array[1..N, 1..N] of Real;
const
A: TA = ((1, -7, 4), (6, -8, 2), (-2, 3, 5));
function AN1( A: TA ): Real;
var S, Max: Real; K, L: Integer;
begin
Max := -1;
for L := 1 to N do begin
S := 0;
for K := 1 to N do
S := S + Abs(A[K, L]);
if Max < S then Max := S
end;
AN1 := Max
end; {AN1}
AN1( A ) мәнiн анықта:
<variant>18.0
<variant>11.0
<variant>16.0
<variant>12.0
<variant>10.0
<question3>const N = 3;
type
TA = array[1..N, 1..N] of Real;
const
A: TA = ((1, -7, 4), (6, -8, 2), (-2, 3, 5));
function ANc( A: TA ): Real;
var S, Max: Real; K, L: Integer;
begin
Max := -1;
for K := 1 to N do begin
S := 0;
for L := 1 to N do
S := S + Abs(A[K, L]);
if Max < S then Max := S
end;
ANc := Max
end; {ANc}
ANc ( A ) мәнiн анықта:
<variant>16.0
<variant>11.0
<variant>18.0
<variant>12.0
<variant>10.0
<question2>var
A, B: Integer;
procedure P(X, Y: Integer);
begin
A := X + A; B := A + Y - X
end; {P}
begin
A := 7; B := 10;
P( A mod 3, B div 3 );
A және B мәнiн анықта:
<variant>8 10
<variant>1 3
<variant>7 10
<variant>2 1
<variant>8 9
<question2>var
A, B: Integer;
procedure P(X, Y: Integer);
begin
A := X + A; B := Y + B
end; {P}
begin
A := 7; B := 10;
P(A mod 3, B div 3);
A және B мәнiн анықта:
<variant>8 13
<variant>9 11
<variant>7 10
<variant>14 20
<variant>1 3
<question2>var
A, B, C: Integer;
procedure P( A: Integer; var B: Integer);
begin
A := A + C; B := B + C
end; {P}
begin {негізгі программа}
A := 7; B := 10; C := 4;
P( A + B, C );
A; B және C мәнiн анықта:
<variant>7 10 8
<variant>21 14 4
<variant>7 14 4
<variant>11 14 4
<variant>11 14 8
<question2>var
A, B, C: Integer;
procedure P(A: Integer; var B: Integer);
begin
A := A + C; B := B + C
end; {P}
begin {негізгі программа}
A := 7; B := 10; C := 4;
P( B + C, A );
A; B және C мәнiн анықта:
<variant>11 10 4
<variant>11 14 4
<variant>7 14 4
<variant>7 11 4
<variant>7 14 14
<question3>var
A, B, C: Integer;
procedure P(var B: Integer);
var C: Integer;
begin
C := A + B; A := B + C; B := A + C
end; {P}
begin {Негізгі программа}
A := 2; B := 4; C := 8;
P( C );
A; B және C мәнiн анықта:
<variant>18 4 28
<variant>10 16 6
<variant>2 28 8
<variant>10 16 8
<variant>20 4 30
<question3>function F2(N: Integer): LongInt;
begin
if N < 4 then F2 := 2
else F2 := N * F2(N - 2)
end;
F2(6) мәнiн анықта:
<variant>48
<variant>240
<variant>24
<variant>8
<variant>720
<question3>function F1(N: Integer): LongInt;
begin
if N < 5 then F1 := 3
else F1 := N * F1(N - 2)
end;
F1(7) мәнiн анықта:
<variant>105
<variant>630
<variant>35
<variant>15
<variant>5040
<question3>function C( M, N: Word ): Word;
begin
if (M = 0) or (M = N) then C := 1
else C := C(M, N-1) + C(M-1, N-1)
end;
C(3, 6) және C(4, 6) мәнiн анықта:
<variant>20 15
<variant>15 20
<variant>20 10
<variant>10 20
<variant>20 35
<question3>function Ack(M, N: Integer): Integer;
begin
if M <= 0 then
Ack := N + 1
else
if N <= 0 then
Ack := Ack(M - 1, 1)
else
Ack := Ack(M - 1, Ack(M, N - 1))
end;
Ack(1, 2) мәнiн анықта:
<variant>4
<variant>3
<variant>2
<variant>5
<variant>1
<question3>function H(X, I: Integer): Integer;
begin
if I <= 0 then
H := 1
else
if I = 1 then
H := 2 * X
else
H := 2 * X * H(X, I - 1) - 2 * (I - 1) * H(X, I - 2)
end;
H(2, 3) мәнiн анықта:
<variant>40
<variant>14
<variant>34
<variant>76
<variant>52
<question2>function F(N: Integer): Integer;
begin
if N <= 2 then
F := 3
else
F := F(N - 1) + F(N - 2)
end;
F(6) мәнiн анықта:
<variant>24
<variant>8
<variant>15
<variant>39
<variant>5
<question2>Төмендегі программа қандай жауап қайтарады?