4) В трёхзначном натуральном числе хотя бы одна чётная цифра;
5) в трёхзначном натуральном числе нет чётных цифр.
Вопрос 58. Ошибку "Structure too large" (структура превышает максимально допустимый объём статической памяти) вызовет описание
1) Type Vector = Array[Byte] Of Integer; Var C : Array[1..10] Of Vector;
2) Var T : File Of String;
3) Type A = Record S : String; A, B, C : Array[10..20] Of Real End;
Var M : Array[1..5, 1..8] Of A;
4) Var K : Array [Byte, Byte] Of String[6];
5) Var S : Array[–10000..10000] Of Sring[2].
Вопрос 59. К процедурам для работы с динамическими переменными не относится
1) Mark;
2) New;
3) Release;
4) Seek;
5) Dispose.
Вопрос 60. Имеется описание
Type A = Array[0..100] Of Real; B = ^A; Var M : Array[1..5] Of B;
Для хранения массива M необходим объём памяти (байт)
1) 606; 2) 4; 3) 20; 4) 12120; 5) 6.
Вопрос 61. Фрагмент программы
K := 0;
While Not Eof(F) Do
Begin ReadLn(F, S); I := 1;
While I <= Length(S) Do
Begin If S[I] In ['А'..'Я', 'а'..'п', 'р'..'я']
Then Begin K := K + 1;
Delete(S, I, 1); I := I – 1
End;
I := I + 1
End
End;
выполняет следующее действие:
1) удаляет из текстового файла F все русские буквы;
2) Определяет в текстовом файле количество символов, являющихся русскими буквами;
3) определяет в текстовом файле количество символов, не являющихся русскими буквами; 4) определяет в текстовом файле количество символов;
5) удаляет из текстового файла F все символы, не являющиеся русскими буквами.
Вопрос 62. В фрагменте программы (здесь Var f : File Of Integer; I, k, Vsp : Integer;)
Reset(F); K := FileSize(F) – 1;
For I := 0 To K Do
Begin Seek(F, I); Read(F, Vsp); Seek(F, FileSize(F)); Write(F, Vsp) End;
выполняется
1) сортировка файла;
2) изменение порядка следования элементов на обратный;
3) Дописывание в конец исходного файла полную его копию с сохранением порядка следования элементов;
4) дописывание в конец исходного файла полную его копию с изменением порядка следования элементов на противоположный;
5) не выполняется никаких действий по изменению файла.
Вопрос 63. Имеется описание
Type Dn = (pn, vt, sr, cht, ptn, sb, vs); Mn = Set Of Dn; Var V : Mn;
и фрагмент программы
V := [pn..ptn] * [sr, ptn..vs] – [sb];
После исполнения этого фрагмента переменная V имеет значение
1) [pn..vs];
2) [sr, ptn];
3) [sb];
4) [pn..ptn].
Вопрос 64. Алгоритм какого типа изображен на блок-схеме?
1) циклический;
2) разветвляющийся; 3
) вспомогательный;
4) Линейный;
5) комбинация развилки и цикла.
Вопрос 65. После исполнения фрагмента программы, изображенного на блок-схеме,
при A = 5, B = 4 значение X будет равно
1) 20;
2) 9;
3) 5;
4) 4;
5) 1.
Вопрос 66. В приведенном фрагменте программы (N типа LongInt, N > 0)
P := 1;
While P <= N Do
Begin
Left := N Div (P * 10) * (P * 10);
Right := N Mod P;
K := ((N Mod (P * 10) Div P + 1) Mod 10) * P;
N := Left + K + Right; P := P * 10
End;
натуральное число N изменяется по следующему правилу
1) не изменяется;
2) в каждый разряд прибавляется 1;
3) из каждого разряда вычитается 1;
4) в каждый разряд прибавляется 1, если значение в разряде — не девять, иначе заменяется на нуль;
5) каждая девятка в десятичной записи числа заменяется на нуль.