Тест по программированию в формате ЕГЭ
тест по информатике и икт (10 класс) по теме

Итоговая контрольная работа

Вариант1.

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:= L + 1;

    M:= M + x mod 10;

    x:= x div 10;

  end;

  writeln(L); write(M);

end.

2) Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=0;

  k:=1;

  while k < 11 do begin

    s:=s+k;

    k:=k+1;

  end;

  write(s);

end.

3) Определите значение переменной c после выполнения следующего фрагмента программы:

a := -5;

b := 3;

a := a - b*2;

if a > b then

     c := b - a

else c := a – b;

1. Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:

for n:=1 to 100 do

    A[n] := n - 10;

for n:=1 to 100 do

    B[n] := A[n]*n;

Сколько элементов массива B будут иметь положительные значения?

1) 10        2) 50        3) 90        4) 100

2. В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленные переменные k, i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

  for i:=0 to 10 do A[i]:=i;

  for i:=0 to 10 do begin

    k:=A[i];

    A[i]:=A[10-i];

    k:=A[10-i];

  end;

Чему будут равны элементы этого массива?

        1) 10 9 8 7 6 5 4 3 2 1 0

        2) 0 1 2 3 4 5 6 7 8 9 10

        3) 0 1 2 3 4 5 4 3 2 1 0

        4) 10 9 8 7 6 5 6 7 8 9 10

Вариант 2.

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 8.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:= L + 1;

    if x mod 2 = 0 then

      M:= M + x mod 10;

    x:= x div 10;

  end;

  writeln(L); write(M);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=0;

  k:=0;

  while k < 30 do begin

    k:=k+3;

    s:=s+k;

  end;

  write(s);

end.

3. Определите значение переменной c после выполнения следующего фрагмента программы:

a := -5;

b := -3;

a := a - b*3;

if a > b then

     c := b + a

else c := a – b;

4. Все элементы двумерного массива A размером 10х10 элементов первоначально были равны 0. Затем значения элементов меняются с помощью вложенного оператора цикла в представленном фрагменте программы:

for n:=1 to 4 do

  for k:=n to 4 do begin

    A[n,k] := A[n,k] + 1;

    A[k,n] := A[k,n] + 1;

  end;

Сколько элементов массива в результате будут равны 1?

1) 0        2) 16        3) 12        4) 4

5. В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленные переменные k, i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

  for i:=0 to 10 do A[i]:=i;

  for i:=0 to 4 do begin

    k:=A[10-i];

    A[10-i]:=A[i];

    k:=A[i];

  end;

Чему будут равны элементы этого массива?

        1) 10 9 8 7 6 5 4 3 2 1 0

        2) 0 1 2 3 4 5 6 7 8 9 10

        3) 0 1 2 3 4 5 4 3 2 1 0

        4) 10 9 8 7 6 5 6 7 8 9 10

Вариант 3.

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 0.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:= L + 1;

    if x mod 2 = 0 then

      M:= M + x mod 10;

    x:= x div 10;

  end;

  writeln(L); write(M);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=3;

  k:=1;

  while k < 25 do begin

    s:=s+k;

    k:=k+2;

  end;

  write(s);

end.

3. Определите значение переменной c после выполнения следующего фрагмента программы:

a := -2;

b := -3;

a := b + a*3;

if a < b then

     c := a - b

else c := b – a;

4. Значения двумерного массива задаются с помощью вложенного оператора цикла в представленном фрагменте программы:

for n:=1 to 5 do

  for k:=1 to 5 do

    B[n,k] := n + k;

Чему будет равно значение B(2,4)?

1) 9        2) 8        3) 7        4) 6

5. В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленная переменная i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

  for i:=0 to 10 do A[i]:=i;

  for i:=0 to 9 do begin

    A[i]:=A[i+1];

  end;

Чему будут равны элементы этого массива?

        1) 10 0 1 2 3 4 5 6 7 8 9

        2) 1 2 3 4 5 6 7 8 9 10 10

        3) 0 0 1 2 3 4 5 6 7 8 9

        4) 1 2 3 4 5 6 7 8 9 10  0

Вариант 4.

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 8.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:= L + 1;

    if x mod 2 = 1 then

      M:= M + x mod 10;

    x:= x div 10;

  end;

  writeln(L); write(M);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=2;

  k:=2;

  while s < 50 do begin

    s:=s+k;

    k:=k+2;

  end;

  write(k);

end.

3. Определите значение переменной c после выполнения следующего фрагмента программы:

a := 40;

b := 10;

b := a - 2*b;

if a < 2*b then

     c := a

else c := b;

4. Дан фрагмент:

for n:=l to 6 do

  for m:=l to 5 do begin

    C[n,m]:=C[n,m]+(2*n-m);

  end;

Чему будет равно значение С[4,3], если перед этими командами значение С[4,3]=10?

1) 5        2) 10        3) 15        4) 25

5. В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленные переменные k, i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

  for i:=0 to 10 do A[i]:=i;

  k:=A[10];

  for i:=0 to 9 do

    A[i]:=A[i+1];

  A[0]:=k;

Чему будут равны элементы этого массива?

1) 10 0 1 2 3 4 5 6 7 8 9

        2) 10 2 3 4 5 6 7 8 9 10 10

        3) 1 2 3 4 5 6 7 8 9 10 10

        4) 1 2 3 4 5 6 7 8 9 10  0

Вариант 5. 

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:= L + 1;

    if x mod 2 = 0 then

      M:= M + (x mod 10) div 2;

    x:= x div 10;

  end;

  writeln(L); write(M);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=0;

  k:=0;

  while s < 100 do begin

    s:=s+k;

    k:=k+4;

  end;

  write(k);

end.

3. Определите значение переменной c после выполнения следующего фрагмента программы, в котором a, b и с – переменные вещественного (действительного) типа:

a := 120;

b := 100;

a := a + b / 2;

if b < a / 2 then

     c := b + a

else c := b + a / 2;

4. Значения элементов двух массивов А и В размером 1 х 100 задаются с помощью следующего фрагмента программы:

for i:=1 tо 100 do

  A[i] := 50 – i;

for i:=1 tо 100 do

  B[i] := A[i] + 49;

Сколько элементов массива В будут иметь отрицательные значения?

1) 1        2) 10        3) 50        4) 100

5. В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленные переменные k, i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

  for i:=0 to 10 do A[i]:=i;

  for i:=0 to 4 do begin

    k:=A[2*i];

    A[2*i]:=A[2*i+1];

    A[2*i+1]:=k;

  end;

Чему будут равны элементы этого массива?

1) 5 6 7 8 9 0 1 2 3 4  10

        2) 10 9 8 7 6 5 4 3 2 1 0

        3) 0 1 2 3 4 5 4 3 2 1 0

        4) 1 0 3 2 5 4 7 6 9 8 10

Вариант 6.

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:= L + 1;

    if x mod 2 = 1 then

      M:= M + (x mod 10) div 2;

    x:= x div 10;

  end;

  writeln(L); write(M);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=0;

  k:=1;

  while s < 66 do begin

    k:=k+3;

    s:=s+k;

  end;

  write(k);

end.

3. Определите значение переменной S после выполнения следующего фрагмента программы:

S:=1; i:=1;

while i < 5 do begin

  S := S + i*(i+1);

  i := i + 1;

end;

4. Значения элементов двумерного массива А были равны 0. Затем значения некоторых элементов были изменены (см. представленный фрагмент программы):

n := 0;

for i:=1 tо 5 do

  for j:=1 tо 6-i do begin

    n := n + 1;

    A[i,j] := n;

  end;

Какой элемент массива будет иметь в результате максимальное значение?

1) A[1,1]        2) A[1,5]        3) A[5,1]        4) A[5,5]

5. В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленные переменные k, i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

  for i:=0 to 10 do A[i]:=i;

  for i:=0 to 4 do begin

    k:=A[i];

    A[i]:=A[i+5];

    A[i+5]:=k;

  end;

Чему будут равны элементы этого массива?

        1) 5 6 7 8 9 0 1 2 3 4  10

        2) 10 9 8 7 6 5 4 3 2 1 0

        3) 0 1 2 3 4 5 4 3 2 1 0

        4) 1 0 3 2 5 4 7 6 9 8 10

Вариант 7.

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:=L+1;

    if M < x then begin

      M:=x mod 10;

    end;

    x:= x div 10;

  end;

  writeln(L); write(M);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=5;

  k:=0;

  while k < 15 do begin

    k:=k+2;

    s:=s+k;

  end;

  write(s);

end.

3. Определите значение переменной S после выполнения следующего фрагмента программы:

S:=0; i:=7;

while i > 1 do begin

  S := S + i div 2;

  i := i - 1;

end;

4. Значения элементов двумерного массива А размером 5x5 задаются с помощью вложенного цикла в представленном фрагменте программы:

for i:=1 tо 5 do

  for j:=1 tо 5 do begin

    A[i,j] := i*j;

  end;

Сколько элементов массива будут иметь значения больше 10?

1) 12        2) 8        3) 10        4) 4

5. В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленные переменные k, i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

  for i:=0 to 10 do A[10-i]:=i;

  k:=A[9];

  for i:=0 to 9 do

    A[10-i]:=A[9-i];

  A[1]:=k;

Чему будут равны элементы этого массива?

        1) 9 8 7 6 5 4 3 2 1 0 10

        2) 10 1 9 8 7 6 5 4 3 2 1

        3) 0 10 9 8 7 6 5 4 3 2 1

        4) 10 0 9 8 7 6 5 4 3 2 1

Вариант 8.

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 8.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:=L+1;

    if (M < x) and (x mod 2 = 0) then begin

      M:=x mod 10;

    end;

    x:= x div 10;

  end;

  writeln(L); write(M);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=0;

  k:=0;

  while k < 12 do begin

    s:=s+2*k;

    k:=k+3;

  end;

  write(s);

end.

3. Определите значение переменной P после выполнения следующего фрагмента программы:

P:=1; i:=3;

while i <= 9 do begin

  P := P * (i div 3);

  i := i + 1;

end;

4. Значения элементов двумерного массива А размером 5x5 задаются с помощью вложенного цикла в представленном фрагменте программы:

for i:=1 tо 5 do

  for j:=1 tо 5 do begin

    A[i,j] := i + j;

  end;

Сколько элементов массива будут иметь значения больше 5?

1) 5        2) 20        3) 10        4) 15

5. В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленная переменная i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

  for i:=0 to 10 do A[i]:=i+1;

  for i:=1 to 10 do

    A[i]:=A[i-1];

Чему будут равны элементы этого массива?

        1) 1 1 2 3 4 5 6 7 8 9 10

        2) 1 2 3 4 5 6 7 8 9 10 10

        3) 1 1 1 1 1 1 1 1 1 1 1

        4) 0 1 2 3 4 5 6 7 8 9 10

Вариант 9.

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:=L+1;

    if (M < x) and (x mod 2 = 1) then begin

      M:= (x mod 10) * 2;

    end;

    x:= x div 10;

  end;

  writeln(L); write(M);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=0;

  k:=0;

  while s < 80 do begin

    s:=s+2*k;

    k:=k+4;

  end;

  write(s);

end.

3. Определите значение переменной с после выполнения следующего фрагмента программы:

a:= 7;

a:= a - 4;

b:= -a;

c:= -a + 2*b;

4. Дан фрагмент программы:

for n:=1 tо 5 do

  for m:=1 tо 5 do

    C[n,m] := (m – n)*(m – n);

Сколько элементов массива С будут равны 1?

1) 5        2) 2        3) 8        4) 14

5. В программе описан одномерный целочисленный массив с индексами от 0 до 9 и целочисленные переменные k и i. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

  for i:=0 to 9 do A[i]:=i+1;

  k:=A[9];

  for i:=9 downto 1 do

    A[i]:=A[i-1];

  A[0]:=k;

Чему будут равны элементы этого массива?

        1) 10 3 4 5 6 7 8 9 10 10

        2) 10 1 2 3 4 5 6 7 8 9

        3) 10 1 1 1 1 1 1 1 1 1

        4) 10 10 10 10 10 10 10 10 10 10

Вариант 10.

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:=L+1;

    if M < x then begin

      M:= (x mod 10) * 2;

    end;

    x:= x div 10;

  end;

  writeln(L); write(M);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

  s:=1;

  k:=0;

  while k < 13 do begin

    s:=s+2*k;

    k:=k+4;

  end;

  write(s+k);

end.

3. Определите значение переменной с после выполнения следующего фрагмента программы:

a:= 5;

a:= 12 – a*a;

b:= -a;

c:= 10*a - b;

4.  В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

for i:=0 to 10 do

  A[i]:= i + 1;

for i:=1 to 10 do

  A[i]:= A[i-1];

Как изменяются элементы этого массива?

        1) все элементы, кроме последнего, сдвигаются на 1 элемент вправо

        2) все элементы, кроме первого, сдвигаются на 1 элемент влево

        3) все элементы окажутся равны 1

        4) все элементы окажутся равны своим индексам

5. В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.

  for i:=0 to 10 do

    A[i]:=i-1;

  for i:=10 downto 1 do

    A[i-1]:=A[i];

Чему будут равны элементы этого массива?

1) 9 9 9 9 9 9 9 9 9 9 9

        2) 0 1 2 3 4 5 6 7 8 9 9

        3) 0 1 2 3 4 5 6 7 8 9 10

        4) -1 -1 0 1 2 3 4 5 6 7 8

Вариант 11.

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 2, а потом 72.

var x, a, b: integer;

begin

  readln(x);

  a:=0; b:=1;

  while x>0 do begin

    a:=a+1;

    b:=b*(x mod 10);

    x:= x div 10;

  end;

  writeln(a); write(b);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

  n := 3;

  s := 0;

  while n <= 7 do begin

    s := s + n;

    n := n + 1

  end;  

  write(s)

end.

3. Определите значение переменной с после выполнения следующего фрагмента программы:

m:= 67;

m:= m + 13;

n:= m/4 – m/2;

c:= m - n;

4. В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

for i:=0 to 10 do

  A[i]:= i + 1;

for i:=10 downto 0 do

  A[i]:= A[10-i];

Чему будут равны элементы этого массива?

        1) 10 9 8 7 6 5 4 3 2 1 0

        2) 11 10 9 8 7 6 5 4 3 2 1

        3) 11 10 9 8 7 6 7 8 9 10 11

        4) 1 2 3 4 5 6 5 4 3 2 1

5. В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.

  for i:=0 to 10 do

    A[i]:=i;

  for i:=0 to 5 do begin

    A[10-i]:=A[9-i];

    A[i]:=A[i+1];

  end;

Чему будут равны элементы этого массива?

        1) 0 1 2 3 4 5 6 7 8 9 10

        2) 0 1 2 3 4 5 6 7 8 9 9

        3) 1 2 3 4 5 5 5 6 7 8 9

        4) 1 2 3 4 5 6 5 4 3 2 1

Вариант 12.

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 2, а потом 14.

var x, a, b : integer;

begin

  readln(x);

  a := 0; b := 1;

  while x > 0 do begin

    a := a + 1;

    b := b * (x mod 10);

    x := x div 10;

  end;

  writeln(a); write(b);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

  n := 4;

  s := 0;

  while n <= 8 do begin

    s := s + n;

    n := n + 1

  end;  

  write(s)

end.

3. Определите значение переменной с после выполнения следующего фрагмента программы:

x:= 8 + 2*5;

y:= (x mod 10) + 14;

x:= (y div 10) + 3;

c:= x - y;

4. В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

for i:=0 to 10 do

  A[i]:= i + 1;

for i:=0 to 10 do

  A[i]:= A[10-i];

Чему будут равны элементы этого массива?

        1) 10 9 8 7 6 5 4 3 2 1 0

        2) 11 10 9 8 7 6 5 4 3 2 1

        3) 11 10 9 8 7 6 7 8 9 10 11

        4) 10 9 8 7 6 5 6 7 8 9 10

5. В программе обрабатывается двумерный целочисленный массив A [0..n,0..n]. Первый индекс элемента обозначает номер строки, а второй – номер столбца. Дан фрагмент программы:

  for i:=0 to n do begin

    c:=A[i,n-i];

    A[i,n-i]:=A[1,i];

    A[1,i]:=c;

  end;

Что меняет этот фрагмент программы?

        1) два столбца в таблице

        2) строку и столбец в таблице

        3) элементы диагонали и строки в таблице

        4) элементы диагонали и столбца в таблице

Вариант 13.

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.

var x, a, b : integer;

begin

  readln(x);

  a := 0; b := 1;

  while x > 0 do begin

    a := a + 1;

    b := b * (x mod 10);

    x := x div 10;

  end;

  writeln(a); write(b);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

n := 4;

s := 0;

while n <= 13 do begin

  s := s + 15;

  n := n + 1

end;

write(s)

end.

3. Определите значение переменной с после выполнения следующего фрагмента программы:

a := 30;

b := 6;

a := a / 2 * b;

if a > b then

     c := a - 3 * b

else c := a + 3 * b;

4. В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

for i:=0 to 10 do

  A[i]:= i - 1;

for i:=1 to 10 do

  A[i-1]:= A[i];

A[10] := 10;

Как изменяются элементы этого массива?

        1) все элементы, кроме последнего, окажутся равны между собой

        2) все элементы окажутся равны своим индексам

        3) все элементы, кроме последнего, сдвигаются на один элемент вправо

        4) все элементы, кроме последнего, уменьшаются на единицу

5. В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.

  for i:=0 to 10 do

    A[i]:=i;

  for i:=0 to 5 do begin

    A[5-i]:=A[5+i];

    A[2+i]:=A[10-i];

  end;

Чему будут равны элементы этого массива?

        1) 10 9 8 7 8 7 6 7 8 9 10

        2) 9 8 7 6 5 9 8 7 6 5 10

        3) 10 9 8 7 6 10 9 8 7 6 10

        4) 10 9 8 7 6 5 6 7 8 9 10

Вариант 14.

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 0.

var x, a, b : integer;

begin

  readln(x);

  a := 0; b := 1;

  while x > 0 do begin

    a := a + 1;

    b := b * (x mod 10);

    x := x div 10;

  end;

  writeln(a); write(b);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

n := 1;

s := 0;

while n <= 20 do begin

  s := s + 33;

  n := n + 1

end;

write(s)

end.

3. Определите значение переменной с после выполнения следующего фрагмента программы:

a := 30;

b := 6;

a := a / 5 * b;

if a > b then

     c := a - 4 * b

else c := a + 4 * b;

4. В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

for i:=0 to 10 do

  A[i]:= i;

for i:=1 to 11 do

  A[i-1]:= A[11-i];

Чему будут равны элементы этого массива?

        1) 10 9 8 7 6 5 4 3 2 1 0

        2) 11 10 9 8 7 6 5 4 3 2 1

        3) 10 9 8 7 6 5 6 7 8 9 10

        4) 11 10 9 8 7 6 7 8 9 10 11

5. В программе описан двухмерный целочисленный массив A [1..6,1..6]. Ниже представлен фрагмент этой программы, в котором изменяются значения элементов массива.

  for n:=1 to 6 do

  for m:=1 to 6 do

    A[n,m]:=A[m,n]+2*n-m;

До выполнения данного фрагмента программы значение A[4,3] было равно 10, а значение A[3,4] было равно 15. Чему будет равно значение A[4,3] после выполнения этого фрагмента программы?

        1) 10        2) 15        3) 17        4) 20

Вариант 15.

1. Ниже записана программа. Получив на вход число , эта программа печатает два числа,  и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.

var x, L, M: integer;

begin

  readln(x);

  L:=0; M:=0;

  while x > 0 do begin

    L:= L + 1;

    M:= M + x mod 10;

    x:= x div 10;

  end;

  writeln(L); write(M);

end.

2. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

  n := 1;

  s := 0;

  while n <= 101 do begin

    s := s + 7;

    n := n + 1

  end;

  write(s)

end.

3. Определите значение переменной с после выполнения следующего фрагмента программы:

a := 6*12 + 3;

b := a div 10 + 5;

a := b mod 10 + 1;

c := a*a + b*b – a / 2 * b;

4. В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

  for i:=0 to 10 do A[i]:=i;

  for i:=0 to 10 do begin

    A[10-i]:=A[i];

    A[i]:=A[10-i];

  end;

Чему будут равны элементы этого массива?

        1) 10 9 8 7 6 5 4 3 2 1 0

        2) 0 1 2 3 4 5 6 7 8 9 10

        3) 10 9 8 7 6 5 6 7 8 9 10

        4) 0 1 2 3 4 5 4 3 2 1 0

5. В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.

  for i:=0 to 10 do

    A[i]:=10-i;

  for i:=0 to 5 do begin

    A[10-i]:=A[5-i];

    A[5+i]:=A[i];

  end;

Чему будут равны элементы этого массива?

        1) 9 8 7 6 5 10 9 8 7 6 10

        2) 10 9 8 7 6 5 6 7 8 9 10

        3) 10 9 8 7 6 10 9 8 7 6 10

        4) 5 6 7 8 9 10 9 8 7 6 5

КЛЮЧИ:

Тест составлен на основе материала с сайта http://kpolyakov.narod.ru