3) Передача данных от внешнего носителя в оперативную память для обработки;

4) присваивание конкретных значений переменным, которые используются в программе; 5) запись файла на диск.

Вопрос 79. Значение R после выполнения операции логического присваивания

R := Not (A Or B Or (X > 2) And (Y < 0))

при A = False, B = False, X = 3, Y = 2 будет равно

1) –1;

2) False;

3) True;

4) 0;

5) 1.

Вопрос 80. С помощью какой из приведенных серий команд переменной B присваивается значение выражения?

а) A := (x + y) / (x – y); B := (A – 1 / A) * (1 / A + A);

б) A := (x + y) / (x – y); B := Sqr(A) – Sqr (1 / A);

в) A := (x – y) / (x + y); B := Sqr(1 / A) – Sqr (A);

1) а;

2) б;

3) в;

4) всех трех;

5) Ни один из ответов 1–4 не является верным.

Вопрос 81. Значения переменных a и b после выполнения следующих действий

a := 15 Div (16 Mod 7); b := 34 Mod a * 5 – 29 Mod 5 * 2;

будут равны

1) a = 1, b = 160;

2) a = 1, b = 4;

3) a = 7, b = 25;

4) a = 7, b = 22;

5) a = 7, b = 28.

Вопрос 82. Во фрагмент алгоритма

For K := 10 To 99 Do

Begin P1 := K Div 10;

P2 := K Mod 10;

S := P1 + P2;

If ____ Then WriteLn(K)

End;

печатающий все двузначные числа, в записи которых есть цифра N или сумма цифр которых равна самим числам, нужно вписать логическое выражение

1) (P1 = N) Or (P2 = N) And (S = K);

2) (P1 = N) Or (P2 = N) Or (S = K);

3) (P1 = N) And (P2 = N) Or (S = K);

4) ((P1 = N) Or (P2 = N)) And (S = K);

5) (P1 = N) And (P2 = N) And (S = N).

Вопрос 83. Значения переменных p и d после выполнения фрагмента алгоритма

k := 47; Case k Mod 9 Of

5: Begin d := k; p := True End;

0..2: Begin d := 2; p := False End;

8: Begin d := 1; p := False End

Else Begin d := 1; p := True End

End;

равны

1) p = True, d = 1;

2) p = False, d = 2;

3) p = False, d = 3;

4) p = True, d = 47;

5) p = True, d = 2.

Вопрос 84. Тело цикла в программе

a := 1; b := 1; While a + b < 8 Do begin a := a + 1; b := b + 2 end;

выполнится

1) 1 раз;

2) 2 Раза;

3) 3 раза;

4) ни разу;

5) бесконечное число раз.

Вопрос 85. Элементы массива p[1..5] равны соответственно 1, –1, 5, 2, 4. Значение выражения

p[1] * p[3] – p[2 * p[2] + p[p[5] – p[2]]]

равно

1) 8;

2) –8;

3) 12;

4) –12;

5) 6.

Вопрос 86. Задана строка St.Фрагмент алгоритма

S := 0;

For I := 1 To Length (St) Do

Begin

Val(St[I], d, k);

If K = 0 Then S := S + d

End;

1) определяет количество цифр в строке;

2) подсчитывает количество нулей в строке;

3) определяет сумму номеров позиций в строке, где стоят цифры;

4) Подсчитывает сумму цифр в строке;

5) определяет сумму номеров позиций в строке, где стоят нули.

Вопрос 87. Какая из приведенных серий операторов определяет и печатает индекс последнего отрицательного элемента в линейном массиве из n элементов?

а) i := n; While (i >= 1) And (m[i] > 0) Do Dec (i); If i < 1 Then WriteLn (‘i = 0’) Else WriteLn (‘i = ’, i);

б) k := 0; For i := 1 To n Do If m[i] < 0 Then k := i; WriteLn (‘i = ’, k);

в) i := n; Repeat i := i – 1 Until (m[i] < 0); WriteLn (‘i = ’, i);

1) а, б;

2) б, в;

3) а, б, в;

4) б;

5) ни один из ответов 1–4 не верен.

Вопрос 88. Задан линейный массив M[1..n].

Function Control (M: Myarray): Boolean;

Var I : Integer;

Begin I := 1;

While (I <= n) And (M[I] > 0) Do Inc(I);

Control := (I <= n);

End;

Если в данном массиве все элементы положительные, приведенная функция возвращает значение

1) n;

2) True;

3) False;

4) I <= n;

5) ни один из ответов 1–4 не верен.

Вопрос 89. Задан двумерный массив X[1..n, 1..m]. Процедура

Procedure Sub (Var X: Myarray);

Var i, j: Integer;

Begin For i := 1 To n Do

For j := 1 To m Div 2 Do X[i, 2 * j] := X[i, 2 * j] + X[i, 1];

End;

1) к элементам столбцов в первой половине матрицы прибавляет элементы первого столбца соответствующей строки;

2) добавляет к матрице еще M столбцов с элементами, равными соответствующим элементам первого столбца;