Технология решения олимпиадных задач
 Скачать 0.51 Mb.
|
|
Технология решения олимпиадных задач Попова Н.В., Самойлова И.А., Кельдибекова А.Б., Муратхан Р. $$$ 1 Компилятор - это: A) операционная система. B) специальная системная программа - переводчик с языка высокого уровня на машинный язык. C) язык программирования. D) специальный системный резидентный драйвер. E) разновидность компоновщика. $$$ 2 Алгоритмический язык Паскаль создан для A) целей обучения B) научных исследований C) профессионального программирования D) прикладного программирования E) системного программирования $$$ 3 Этапы вычислительного эксперимента: A) набор текста программы, компиляция, компоновка, отладка программы B) компиляция, компоновка, отладка программы C) математическая формулировка задачи, набор текста программы, программирование, проведение расчётов на компьютере; анализ полученных численных результатов D) математическая формулировка задачи, построение алгоритма, программирование, проведение расчётов на компьютере; анализ полученных численных результатов E) набор текста программы, компиляция, отладка программы $$$ 4 Этапы программирования: A) набор текста программы, компиляция, компоновка, отладка программы B) компиляция, компоновка, отладка программы C) математическая формулировка задачи, набор текста программы, программирование, проведение расчётов на компьютере; анализ полученных численных результатов D) математическая формулировка задачи, построение алгоритма, программирование, проведение расчётов на компьютере; анализ полученных численных результатов E) набор текста программы, компиляция, отладка программы $$$ 5 Укажите слово, не являющееся служебным в языке Паскаль A) LABEL B) INTEGER C) CONST D) LOGICAL E) TYPE $$$ 6 Раздел описания переменных A) TYPE B) CONST C) VAR D) LABEL E) BEGIN $$$ 7 Укажите правильную структуру программы на языке Паскаль по разделам A) Метки; константы; переменные; типы; процедуры и функции, операторы B) Заголовок; метки; константы; типы; переменные; процедуры и функции; операторы C) Метки; константы; типы; переменные; процедуры и функции; операторы D) Заголовок; метки; константы; переменные; типы; процедуры и функции; операторы E) Заголовок; метки; константы; типы; переменные; операторы $$$ 8 Укажите служебное слово, обозначающее заголовок программы A) TYPE B) CONST C) VAR D) PROGRAM E) BEGIN $$$ 9 Укажите правильное определение идентификатора A) комбинация букв и цифр B) комбинация букв латинского алфавита и цифр C) комбинация букв латинского алфавита и цифр, начинающаяся с буквы D) комбинация букв алфавита и цифр, начинающаяся с буквы E) комбинация символов $$$ 10 Укажите правильную запись вещественного числа в показательной форме A) 23. 56 B) 23. 56^4 C) 23. 56E4 D) 23^4 E) 23. 56P4 $$$ 11 Определите значение выражения (a > 0) OR NOT (a =4) при a = -2 A) TRUE B) 1 C) FALSE D) 0 E) -2 $$$ 12 Укажите имя типа, не являющееся стандартным для языка Паскаль A) REAL B) BOOLEAN C) STRING D) CHAR E) INTEGER $$$ 13 Укажите правильную конструкцию полного условного оператора A) IF <условие> THEN <оператор> WHILE <условие> B) IF <условие> DO <оператор> C) IF <условие> THEN <оператор> ELSE <оператор> D) CASE <условие> THEN <оператор> ELSE <оператор> E) IF <условие> THEN DO <оператор> $$$ 14 Укажите правильную конструкцию сокращенного условного оператора A) IF <условие> THEN <оператор> WHILE <условие> B) IF <условие> DO <оператор> C) IF <условие> THEN <оператор> ELSE <оператор> D) CASE <условие> THEN <оператор> ELSE <оператор> E) IF <условие> THEN <оператор> $$$ 15 Укажите правильную конструкцию условного оператора A) IF <условие> THEN <оператор> WHILE <условие> B) IF <условие> DO <оператор> C) IF <условие> THEN <оператор> ELSE <оператор> D) CASE <условие> THEN <оператор> ELSE <оператор> E) IF <условие> THEN <оператор> $$$ 16 Укажите правильную конструкцию оператора цикла со счетчиком по убыванию A) FOR <счетчик> := <выражение1> TO <выражение2> DO <оператор> B) WHILE <условие> DO <оператор> C) REPEAT <операторы> UNTIL <условие> D) UNTIL <условие> DO <оператор> E) FOR <счетчик>:=<выражение1> DOWNTO <выражение2> DO <оператор> $$$ 17 Укажите результат вывода после выполнения цикла с предусловием i:=0; s:=0; while i < 10 do begin s:=s + i; i:=i + 1 end; write(s); A) 55 B) 45 C) 35 D) 44 E) 46 $$$ 18 Укажите результат вывода после выполнения цикла с постусловием i:=1; s:=0; repeat s:=s + i; i:=i + 1 until i > 10; write(s); A) 46 B) 35 C) 45 D) 55 E) 44 $$$ 19 Укажите результат вывода после выполнения цикла со счетчиком s:=0; for i:=1 to 9 do s:=s + i; write(s); A) 55 B) 45 C) 35 D) 44 E) 46 $$$ 20 Укажите описание типа диапазон A) TYPE a = 1 TO 100 B) TYPE a = 1 - 100 C) TYPE a = 50. . 100 D) TYPE a = (1. . 100) E) TYPE a = (1). . (100) $$$ 21 К типу Real относится константа: A) 3.567387000000e+03 B) 786 C) 16.0 D) -12 E) e_13. F) +31416 G) 8E-4 H) ’17.96’ $$$ 22 Константа 8e-4 относится к типу: A) LongInt B) к шестнадцатеричному C) Integer D) Real E) это не константа, а выражение с операцией вычитания $$$ 23 К типу Char относится константа или выражение: A) #33 B) ‘7’ C) ‘as’ D) 2.54 E) a F) ‘e’ G) pi H) ‘true’ $$$ 24 Константа 'e' относится к типу: A) Real B) Char C) Integer D) экспоненциальному E) String $$$ 25 Константа True относится к типу: A) Integer B) 1 C) Boolean D) String E) это не константа, а имя переменной $$$ 26 Константа '+1.871' относится к типу: A) LongInt B) Real C) Decimal D) Positive E) String $$$ 27 Константа 'False' относится к типу: A) Byte B) Boolean C) 0 D) String E) это не константа, а имя переменной $$$ 28 К типу Boolean относится константа: A) ‘TRUE’ B) false C) 0 D) 1 E) true F) ложь G) истина $$$ 29 Вставьте недостающее слово вместо многоточия VAR a: .. ; A) RECORD B) FILE C) ARRAY D) SET E) INTEGER $$$ 30 Разделы описания констант и переменных A) TYPE B) CONST C) VAR D) LABEL E) BEGIN $$$ 31 Укажите слова, не являющиеся служебным в языке Паскаль A) LABEL B) INTEGER C) CONST D) DLL E) TYPE F) IP $$$ 32 Укажите описание типа диапазон A) TYPE a = -5. . 5 B) TYPE a = 1 TO 100 C) TYPE a = 1 - 100 D) TYPE a = (-5. . 100) E) TYPE a = 1. . 100 $$$ 33 Выберите общий вид цикла с параметром. A) repeat A until B B) for p:=nz to kz do A C) if B then A else A1 D) for p:= nz downto kz do A E) while B do A $$$ 34 Какое имя переменной записано НЕВЕРНО: A) aLfa B) a453 C) a2 D) ob3 E) а' F) _k_ G) 12_34 H) summa $$$ 35 Какой из операторов присваивания составлен НЕПРАВИЛЬНО: A) a:=b+1; B) b+1:=a; C) b:= a-10; D) b:= 5* a; E) a:=b; F) a:=6c; G) b:=1:6; H) a:=sin(x); $$$ 36 Дано описание переменных var a,b,c : integer; x,y,z : Boolean; Какой из операторов, перечисленных ниже, НЕДОПУСТИМ: A) c:=a+b+2; B) a:=x; C) x:=true; D) x:=a=b; E) b:=a; F) a:=sqrt(64); G) c:=a div z; H) c:=a+b; $$$ 37 Дано описание переменных var A, B: Integer; C: Real; X: Boolean; тогда следующий оператор НЕДОПУСТИМ: A) A := X; B) C := A + B + 4.1; C) X := A = B; D) X := A = C; E) C := A; F) B:=sqr(4.0); $$$ 38 Дано описание переменных var A, B: Integer; C: Real; X: Boolean; тогда следующий оператор НЕДОПУСТИМ: A) X := B > C; B) A := B + C; C) C := A + B; D) C := A div B; E) X := Odd(B); F) B:= A mod C; $$$ 39 Дано описание переменных var A, B: Integer; C: Real; X, Y: Boolean; тогда следующий оператор допустим: A) X := A = C; B) B := B div C; C) X := Y + 1; D) A := B + C; E) X := A = Y; F) C:=sqrt(A); $$$ 40 Дано описание переменных var N: Integer; X: Real; тогда следующий оператор НЕДОПУСТИМ: A) WriteLn('N = ', N) B) ReadLn('N = ', N) C) Read(X) D) Write(X := , X) E) WriteLn(X: 8: 4) $$$ 41 Дано описание переменных var K: Integer; A: Real; тогда следующий оператор допустим: A) WriteLn('K ? ', A: 10: 4) B) ReadLn('K ? ', K) C) Read(A: 10: 5) D) Write(A+K) E) ReadLn(A + K) $$$ 42 Дано описание переменных var N: Integer; X: Real; A: Boolean; тогда следующий оператор НЕДОПУСТИМ: A) WriteLn('N ? ', N) B) ReadLn(N) C) Read(A) D) Write('X := ', X) E) WriteLn(X: 8: 4) F) Readln(A) $$$ 43 Укажите правильную запись символьного значения A) a B) C) 'a' D) ''a'' E) a$ $$$ 44 Выберите результат вывода после выполнения оператора цикла a:=7; b:= 3; FOR i:=1 TO 5 DO b:=b + a; write(A); A) 1 B) 3 C) 0 D) 2 E) 7 $$$ 45 Дано описание переменных var K: Integer; A: Real; тогда следующий оператор допустим: A) WriteLn('A ? ', K: 10) B) ReadLn('K ? ', K) C) Read(A: 10: 5) D) Write(A := K) E) ReadLn(A + K) F) Read(a,k) G) Write(a:7:1,a) $$$ 46 Назначение функции Abs(x): A) абсолютное значение аргумента B) дробная часть числа C) целая часть вещественного числа D) квадрат аргумента E) квадратный корень аргумента $$$ 47 Назначение функции Frac(x): A) абсолютное значение аргумента. B) дробная часть числа. C) целая часть вещественного числа. D) квадрат аргумента. E) квадратный корень аргумента. $$$ 48 Назначение функции Trunc(x): A) абсолютное значение аргумента. B) дробная часть числа. C) целая часть вещественного числа. D) квадрат аргумента. E) квадратный корень аргумента. $$$ 49 Назначение функции Sqr(x): A) абсолютное значение аргумента. B) дробная часть числа. C) целая часть вещественного числа. D) квадрат аргумента. E) квадратный корень аргумента. $$$ 50 Назначение функции Sqrt(x): A) абсолютное значение аргумента. B) дробная часть числа. C) целая часть вещественного числа. D) квадрат аргумента. E) квадратный корень аргумента. $$$ 51 Назначение функции Round(x): A) округление вещественного числа до ближайшего целого. B) проверка числа на нечетность. C) определение предыдущего значения величины x. D) определение последующего значения величины x. E) преобразование ASCII–кода в символ. $$$ 52 Назначение функции Odd(x): A) округление вещественного числа до ближайшего целого. B) проверка числа на нечетность. C) определение предыдущего значения величины x. D) определение последующего значения величины x. E) преобразование ASCII–кода в символ. $$$ 53 Назначение функции Pred(x): A) округление вещественного числа до ближайшего целого. B) проверка числа на нечетность. C) определение предыдущего значения величины x. D) определение последующего значения величины x. E) преобразование ASCII–кода в символ. $$$ 54 Назначение функции Succ(x) A) округление вещественного числа до ближайшего целого B) проверка числа на нечетность C) определение предыдущего значения величины x D) определение последующего значения величины x E) преобразование ASCII–кода в символ $$$ 55 Назначение функции Chr(x): A) округление вещественного числа до ближайшего целого. B) проверка числа на нечетность. C) определение предыдущего значения величины x. D) определение последующего значения величины x. E) преобразование ASCII–кода в символ. $$$ 56 Укажите оператор ввода: A) WRITE. B) GOTO. C) READ. D) REAL. E) REPEAT. F) READLN. $$$ 57 Укажите оператор вывода: A) WRITE. B) WHILE. C) READ. D) REAL. E) REPEAT. F) WRITELN. $$$ 58 Для ввода задано число 31.3, после выполнения программы var Fi: Real; H, M: Integer; begin Read(Fi); H := Trunc(Fi / 30); M := Trunc((Fi - 30*H) / 0.5) end. переменные H и M получат значения: A) 0 2 B) 1 3 C) 1 2 D) 0 3 E) 0.7 0.5 $$$ 59 Дан фрагмент программы var X, Y, Z: Byte; begin X := 16; Y := 7; Z := X; X := Y; Y := Z; WriteLn(X: 3, Y: 3, Z: 3); end. в результате его выполнения на экран будут выведены значения: A) 7 16 16 B) 16 7 16 C) 7 16 7 D) 16 7 7 E) 7 7 значение Z не определено $$$ 60 Какими будут значения переменных x и y после выполнения последовательности действий: Var x,y: integer; Begin x:=3;y:=2; x:=x mod y; y:=y div x; write(x:3,y:3); end. A) 3 2 B) 1 2 C) 3 1 D) 1 1 E) 2 3 $$$ 61 Какими будут значения переменных x и y после выполнения последовательности действий: Var x,y: integer; Begin x:=3;y:=2; x:=x div y; y:=y mod x; write(x:3,y:3); end. A) 0 2 B) 1 2 C) 3 1 D) 1 0 E) 3 2 $$$ 62 Каким будет значения переменной с после выполнения последовательности действий: var x,y: integer; c:boolean; begin x:=10;y:=20; c:=(y>5) and (x<20) and (y<30); write(c); end. A) 0 B) 1 C) true D) false E) 10 20 $$$ 63 Каким будет значение переменной с после выполнения последовательности действий: var x,y:integer; c:boolean; begin x:=10;y:=20; c:=not(x<15) or not (y<30); write(c); end. A) 0 B) 1 C) true D) false E) 10 20 $$$ 64 Каким будет значение переменной с после выполнения последовательности действий: var x,y:integer; c:boolean; begin x:=10;y:=20; c:=not(x>=15) and not (y<30); write(c); end. A) 0 B) 1 C) true D) false E) 10 20 $$$ 65 Каким будет значение переменной с после выполнения последовательности действий: var x,y:integer; c:boolean; begin x:=20; y:=10; c:=not(x>=15) or not (y<30); write(c); end. A) 0 B) 1 C) true D) false E) 20 10 $$$ 66 Каким будет значение переменной x после выполнения последовательности действий: var x,y:integer; c:boolean; begin x:=20;y :=10; if (x>y) then x:=1 else x:=0; writeln(x); end. A) 0 B) 1 C) true D) false E) 20 $$$ 67 Каким будет значение переменной x после выполнения последовательности действий: var x,y:integer; c:boolean; begin x:=20; y:=10; if (x>y) or (x writeln(x); end. A) 0 B) 1 C) true D) false E) 20 $$$ 68 Каким будет значение переменной x после выполнения последовательности действий: var x,y:integer; c:boolean; begin x:=10; y:=10; if (x>y) and (x writeln(x); end. A) 0 B) 1 C) true D) false E) 10 $$$ 69 Каким будет значение переменной x после выполнения последовательности действий: var x,y:integer; c:boolean; begin x:=10; y:=10; if (x>0) then x:=0 else if x writeln(x); end. A) 0 B) 1 C) true D) false E) 10 $$$ 70 Каким будет значение переменной x после выполнения последовательности действий: var x,y:integer; c:boolean; begin x:=10; y:=20; if (x>5) then x:=0 else if x writeln(x); end. A) 0 B) 1 C) true D) false E) 10 $$$ 71 Каким будет значение переменной x после выполнения последовательности действий: var x,y:integer; c:boolean; begin x:=10; y:=20; if (x<=0) then x:=0 else if x writeln(x); end. A) 0 B) 1 C) 2 D) 3 E) 4 $$$ 72 Каким будет значение переменной x после выполнения последовательности действий: var x,y:integer; c:boolean; begin x:=10; y:=20; if (x<=0) then x:=0 else if (x then x:=1 else x:=2; writeln(x); end. A) 0 B) 1 C) 2 D) 3 E) 4 $$$ 73 Каким будет значение переменной x после выполнения последовательности действий: var x,y:integer; c:boolean; begin x:=10; y:=20; if (x<=0) then x:=0 else if (x then x:=1 else x:=2; writeln(x); end. A) 0 B) 1 C) 2 D) 3 E) 4 $$$ 74 Каким будет значение переменной x после выполнения последовательности действий: var x,y:integer; c:boolean; begin x:=10; y:=20; if (y<=0) then x:=0 else if (x>y) and (y>100) then x:=1 else x:=2; writeln(x); end. A) 0 B) 1 C) 2 D) 3 E) 4 $$$ 75 Что выйдет на экран в результате выполнения программы: var A, B: Integer; begin A := 7; B := 8; case Abs( A – B ) of 1: A := A + B; 2, 3, 5, 7: B := A + B; 4, 9: A := A div B else B := B – A end; WriteLn( A , ' ', B ); A) 15 -7 B) 7 1 C) 7 15 D) 15 8 E) 0 8 $$$ 76 Каким будет значение переменной k после выполнения последовательности действий: Var k:integer; Begin k:=4; if(k>3) and (k<9) then k:=sqr(k) else k:=k*2; k:=k+4; writeln(k) ; End. A) 16 B) 20 C) 12 D) 4 E) 9 $$$ 77 Каким будет значение переменной k после выполнения последовательности действий: Var k:integer; Begin k:=11; if not(k mod 2=0) then k:=k+10 else k:=k*2; writeln(k) ; End. A) 20 B) 22 C) 11 D) 21 E) 10 $$$ 78 Каким будет значение переменной k после выполнения последовательности действий: Var k:integer; Begin k:=18; if (k mod 2=0) then if (k>=10) and (k<=99) then if(k mod 6=0) then k:=pred(k) else k:=succ(k) ; writeln(k) ; End. A) 19 B) 18 C) 12 D) 13 E) 17 $$$ 79 Каким будет значение переменной k после выполнения последовательности действий: Var k:integer; Begin k:=21; if (k mod 2=0) then if (k>=10) and (k<=99) then if(k mod 6=0) then k:=pred(k) else k:=succ(k) ; writeln(k) ; End. A) 22 B) 21 C) 20 D) 23 E) 24 $$$ 80 Каким будет значение переменной k после выполнения последовательности действий: Var k:integer; Begin k:=20; if (k mod 2=0) then if (k>=10) and (k<=99) then if(k mod 6=0) then k:=pred(k) else k:=succ(k) ; writeln(k) ; End. A) 22 B) 21 C) 20 D) 23 E) 19 $$$ 81 Каким будет значение переменной k после выполнения последовательности действий: 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; writeln(k) ; End. A) 10 B) 0 C) 20 D) 5 E) 30 $$$ 82 Каким будет значение переменной k после выполнения последовательности действий: 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. A) 20 B) 0 C) 40 D) 100 E) 10 $$$ 83 Каким будет значение переменной k после выполнения последовательности действий: 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. A) 18 B) 32 C) -2 D) 2 E) 64 $$$ 84 Что напечатает машина в результате выполнения программы: program Logic; var a , b :integer; aa, bb, cc : boolean; begin a :=3; b :=5; aa:= a < b ; bb:= a > b ; cc:=aa; if aa then write ( 'A' ); if bb then write ( 'B' ); if cc then write ( 'C' ); end. A) BC B) A C) AC D) ABC E) AB $$$ 85 Каким будет значение переменной k после выполнения последовательности действий: Var k:integer; Begin k:=6; if(k>3) and (k<9) then k:=sqr(k) else k:=k*2; k:=k+4; writeln(k) ; End. A) 36 B) 40 C) 12 D) 4 E) 9 $$$ 86 Каким будет значение переменной k после выполнения последовательности действий: Var k:integer; Begin k:=20; if not(k mod 2=0) then k:=k+10 else k:=k*2; writeln(k) ; End. A) 40 B) 20 C) 11 D) 30 E) 10 $$$ 87 Каким будет значение переменной k после выполнения последовательности действий: Var k:integer; Begin k:=18; if (k mod 2=0) then if(k mod 6=0) then k:=pred(k) else k:=succ(k) ; writeln(k) ; End. A) 22 B) 19 C) 20 D) 23 E) 17 $$$ 88 Каким будет значение переменной k после выполнения последовательности действий: Var k:integer; Begin k:=23; if (k mod 2=0) then if(k mod 6=0) then k:=pred(k) else k:=succ(k) ; writeln(k) ; End. A) 22 B) 19 C) 20 D) 23 E) 17 $$$ 89 Каким будет значение переменной k после выполнения последовательности действий: Var k: integer; Begin k:=9; if(k>3) and (k<9) then k:=sqr(k) else k:=k*2; k:=k+4; writeln(k) ; End. A) 16 B) 22 C) 18 D) 4 E) 9 $$$ 90 Каким будет значение переменной k после выполнения последовательности действий: Var k:integer; Begin k:=10; if(k>3) and (k<20) then if(k mod 2=0) then k:=sqr(k) else k:=k*2; k:=k+4; writeln(k) ; End. A) 100 B) 10 C) 20 D) 104 E) 24 $$$ 91 Какой из перечисленных операторов считается оператором цикла с параметром: A) FOR <параметр> := A TO B DO <тело цикла>; B) WHILE <условие> DO <тело цикла>; C) WRITE <условие> DO <тело цикла>; D) REAL <тело цикла> UNTIL <условие>; E) REPEAT <тело цикла> UNTIL <условие>; F) FOR <параметр> := A DOWNTO B DO <тело цикла>; $$$ 92 Какой из перечисленных операторов считается оператором цикла с предусловием: A) FOR <параметр> := A TO B DO <тело цикла>; B) WHILE <условие> DO <тело цикла>; C) WRITE <условие> DO <тело цикла>; D) REAL <тело цикла> UNTIL <условие>; E) REPEAT <тело цикла> UNTIL <условие>; $$$ 93 Какой из перечисленных операторов считается оператором цикла с постусловием: A) FOR <параметр> := A TO B DO <тело цикла>; B) WHILE <условие> DO <тело цикла>; C) WRITE <условие> DO <тело цикла>; D) REAL <тело цикла> UNTIL <условие>; E) REPEAT <тело цикла> UNTIL <условие>; $$$ 94 Дана последовательность операторов a:=1; b:=1; while a+b<2 do begin a:=a+1; b:=b+2 end; s:=a+b; Сколько раз будет повторен цикл: A) 1 раз. B) 2 раза. C) 3 раза. D) 4 раза. E) ни разу. $$$ 95 Дана последовательность операторов a:=1; b:=1 repeat a:=a+1; b:=b+2 until a+b>2; Сколько раз будет повторен цикл: A) ни разу. B) 1 раз. C) 2 раза. D) 3 раза. E) 4 раза. $$$ 96 Дана последовательность операторов S := 1; K := 0; while K < 4 do K := K + 1; S := S + 1 / K; Найти значение переменной S: A) 0.25. B) 1.25. C) 2.083333. D) 1.83333. E) 0.33333. $$$ 97 Дана последовательность операторов a:=1; b:=1; while a<2 do begin a:=a+1;b:=b+2 end; s:=a+b; Сколько раз будет повторен цикл: A) 1 раз. B) 2 раза. C) 3 раза. D) 4 раза. E) ни разу. $$$ 98 Дана последовательность операторов a:=1; b:=1; while a<2 do begin b:=b+2 end; s:=a+b; Сколько раз будет повторен цикл: A) 1 раз. B) 2 раза. C) 3 раза. D) 4 раза. E) зацикливание. $$$ 99 Дана последовательность операторов b:=1; for k:=1 to 2 do b:=b+2; Сколько раз будет повторен цикл: A) 1 раз. B) 2 раза. C) 3 раза. D) 4 раза. E) зацикливание. $$$ 100 Дана последовательность операторов a:=1; b:=1 repeat a:=a+1; b:=b+2 until b>2 Сколько раз будет повторен цикл: A) ни разу. B) 1 раз. C) 2 раза. D) 3 раза. E) 4 раза. $$$ 101 Дана последовательность операторов a:=1; b:=1 repeat a:=a+1; b:=b+2 until b>4 Сколько раз будет повторен цикл: A) ни разу. B) 1 раз. C) 2 раза. D) 3 раза. E) 4 раза. $$$ 102 Дана последовательность операторов a:=1; b:=1 repeat a:=a+1; b:=b+2 until a+b=2 Сколько раз будет повторен цикл: A) ни разу. B) 1 раз. C) 2 раза. D) 3 раза. E) зацикливание. $$$ 103 Дана последовательность операторов S := 1; K := 0; while K < 4 do; K := K + 1; S := S + 1 / K; Найти значение переменной S: A) 0.25. B) зацикливание. C) 0. D) 1. E) 1.5. $$$ 104 Дана последовательность операторов S := 0; K := 0; for M:=1 to 2 do; K := K + 1; S := S + K; Найти значение переменной S: A) 0.25. B) 1. C) 4. D) 5. E) 0. $$$ 105 Дана последовательность операторов S := 0; K := 0; for M:=4 to 5 do; K := K + 3; S := S + K; Найти значение переменной S: A) 2. B) 5. C) 6. D) 8. E) 3. $$$ 106 Дана последовательность операторов S := 0; K := 0; for K:=1 to 2 do S := S + K*2; Найти значение переменной S: A) 6. B) 3. C) 2. D) 1. E) 8. $$$ 107 Дана последовательность операторов a:=1; b:=-1; while a+b=0 do begin a:=a+1; end; s:=a+b; Сколько раз будет повторен цикл: A) ни разу. B) 1 раз. C) 2 раза. D) 3 раза. E) 4 раза. $$$ 108 Дана последовательность операторов a:=1; b:=1; while a+b<8 do begin a:=a+1; b:=b+2 end; s:=a+b Сколько раз будет повторен цикл: A) ни разу. B) 1 раз. C) 2 раза. D) 3 раза. E) 4 раза. $$$ 109 Дана последовательность операторов a:=1; b:=1 repeat a:=a+1; b:=b+2 until a+b>8 Сколько раз будет повторен цикл: A) ни разу. B) 1 раз. C) 2 раза. D) 3 раза. E) 4 раза. $$$ 110 Каким будет значение переменной S после выполнения последовательности действий: Var s,i:integer; Begin s:=0; i:=1; while(i<=6) do i:=i+2; s:=s+i; writeln(s) ; End. A) 7 B) 15 C) 21 D) 0 E) 6 $$$ 111 Каким будет значение переменной S после выполнения последовательности действий: Var s,n:integer; Begin n:=126;s:=0; while(n<>0) do begin s:=s+n mod 10; n:=n div 10; end; writeln(s) ; End. A) 126 B) 0 C) 7 D) 9 E) 1 $$$ 112 Каким будет значение переменной S после выполнения последовательности действий: Var s,n:integer; Begin n:=482;s:=0; while(n>9) do begin s:=s+n mod 10; n:=n div 10; end; writeln(s) ; End. A) 14 B) 10 C) 482 D) 48 E) 0 $$$ 113 Каким будет значение переменной S после выполнения последовательности действий: Var s,n:integer; Begin n:=-126; s:=0; while (n>9) do begin s:=s+n mod 10; n:=n div 10; end; writeln(s) ; End. A) 9 B) -9 C) 8 D) -8 E) 0 $$$ 114 Каким будет значение переменной n после выполнения последовательности действий: Var s,n:integer; Begin n:=10; repeat n:=n-3; until(n>0) ; writeln(n) ; End. A) 10 B) 7 C) -2 D) -10 E) 0 $$$ 115 Каким будет значения переменной S после выполнения последовательности действий: Var s,n: integer; Begin n:=568; s:=0; repeat s:=s+n mod 10; n:=n div 10; until(s>10) ; writeln(s) ; End. A) 19 B) 568 C) 14 D) 11 E) 13 $$$ 116 Каким будет значения переменной S после выполнения последовательности действий: Var n:integer; eps,s,k:real; Begin eps:=0. 1;n:=2;s:=0; repeat k:=sqr(n) ; s:=s+k; n:=n+2; until(k>eps) ; writeln(s:1:2) ; End. A) 0 B) 4 C) 25 D) 41 E) 66 $$$ 117 Каким будет значение переменной n после выполнения последовательности действий: Var n,i,k: integer; Begin n:=6; k:=0; for i:=1 to n do if(n mod i=0) then k:=k+1; if (k=4) then n:=sqr (n) else n:=n+k; writeln(n) ; End. A) 10 B) 12 C) 36 D) 9 E) 4 $$$ 118 Каким будет значение переменной n после выполнения последовательности действий: Var n,i,k:integer; Begin n:=4;k:=0; for i:=1 to n do if(n mod i=0) then k:=k+1; if (k=4) then n:=sqr (n) else n:=n+k; writeln(n) ; End. A) 10 B) 16 C) 256 D) 3 E) 7 $$$ 119 Каким будет значение переменной k после выполнения последовательности действий: Var n,i,k: integer; Begin n:=7; k:=0; for i:=1 to n do if (odd(i) ) then k:=k+1; writeln(k) ; End. A) TRUE B) FALSE C) 7 D) 4 E) 3 $$$ 120 Каким будет значение переменной k после выполнения последовательности действий: Var n,i,k: integer; Begin n:=7; k:=0; for i:=1 to n do if(not(odd(i) ) ) then k:=k+1; writeln(k) ; End. A) TRUE B) FALSE C) 7 D) 4 E) 3 $$$ 121 Каким будет значение переменной k после выполнения последовательности действий: Var n,i,k: integer; Begin n:=7; k:=0; for i:=n to 1 do if (odd(i) ) then k:=k+1; writeln(k) ; End. A) TRUE B) FALSE C) 7 D) 4 E) 0 $$$ 122 Каким будет значение переменной k после выполнения последовательности действий: Var n,i,k: integer; Begin n:=7; k:=0; for i:=n to 1 do if(not(odd(i) ) ) then k:=k+1; writeln(k) ; End. A) TRUE B) FALSE C) 7 D) 4 E) 0 $$$ 123 Каким будет значение переменной n после выполнения последовательности действий: Var n,i,k: integer; Begin n:=4; k:=1; for i:=n to 1 do if(n mod i=0) then k:=k+1; if (k=4) then n:=sqr (n) else n:=n+k; writeln(n) ; End. A) 5 B) 4 C) 256 D) 1 E) 16 $$$ 124 Каким будет значение переменной n после выполнения последовательности действий: Var n,i,k: integer; Begin n:=4; k:=4; for i:=n to 1 do if(n mod i=0) then k:=k+1; if (k=4) then n:=sqr (n) else n:=n+k; writeln(n) ; End. A) 5 B) 4 C) 256 D) 11 E) 16 $$$ 125 Дана последовательность операторов b:=1; for k:=4 to 1 do b:=b+2; Сколько раз будет повторен цикл: A) 1 раз. B) 2 раза. C) 3 раза. D) 4 раза. E) ни разу. $$$ 126 Дана последовательность операторов b:=1; for k:=5 downto 2 do b:=b+2; Сколько раз будет повторен цикл: A) 1 раз. B) 2 раза. C) 3 раза. D) 4 раза. E) зацикливание. $$$ 127 Дана последовательность операторов b:=1; for k:=2 to 2 do b:=b+2; Сколько раз будет повторен цикл: A) 1 раз. B) 2 раза. C) 3 раза. D) 4 раза. E) ни разу. $$$ 128 Каким будет значение переменной k после выполнения последовательности действий: Var n,i,k: integer; Begin n:=8; k:=0; for i:=n to n do if (not(odd(i) ) ) then k:=k+1; writeln(k) ; End. A) TRUE. B) FALSE. C) 1. D) 0. E) 4. $$$ 129 Каким будет значение переменной n после выполнения последовательности действий: Var n, i, k: integer; Begin n:=4;k:=1; for i:=1 to 1 do if(n mod i=0) then k:=k+1; if (k=4) then n:=sqr (n) else n:=n+k; writeln(n) ; End. A) 5 B) 6 C) 256 D) 1 E) 16 $$$ 130 Каким будет значение переменной n после выполнения последовательности действий: Var n,i,k: integer; Begin n:=4; k:=4; for i:=3 to 3 do if(n mod i=0) then k:=k+1; if (k=4) then n:=sqr (n) else n:=n+k; writeln(n) ; End. A) 5 B) 6 C) 256 D) 1 E) 16 $$$ 131 Процедура DELETE(S,INDEX,C); A) удаляет подстроку из строки S. B) помещает подстроку А в строку S. C) создает подстроку строки S. D) поиск последовательности A в строке S. E) объединяет несколько строк в одну. $$$ 132 Процедура INSERT(A,S,INDEX); A) удаляет подстроку из строки S. B) помещает подстроку А в строку S. C) создает подстроку строки S. D) поиск последовательности A в строке S. E) объединяет несколько строк в одну. $$$ 133 Функция COPY(S,INDEX,C) : STRING; A) удаляет подстроку из строки S. B) помещает подстроку А в строку S. C) создает подстроку строки S. D) поиск последовательности A в строке S. E) объединяет несколько строк в одну. $$$ 134 Функция POS(A,S) :BYTE; A) удаляет подстроку из строки S. B) помещает подстроку А в строку S. C) создает подстроку строки S. D) поиск последовательности A в строке S. E) объединяет несколько строк в одну. $$$ 135 Функция CONCAT(S,A) : STRING; A) удаляет подстроку из строки S. B) помещает подстроку А в строку S. C) создает подстроку строки S. D) поиск последовательности A в строке S. E) объединяет несколько строк в одну. $$$ 136 Определить значения переменных ds и d: s:='победа'; ds:=length(s); d:=pos('да',s); A) ds=6,d=5. B) ds=5,d=6. C) ds=6,d=6. D) ds=6,d=0. E) ds=6,d=1. $$$ 137 Определить значение переменной s: s:='победа'; delete(s,1,2); A) поеда B) беда C) обеда D) побед E) пода $$$ 138 Определить значение переменной b: s:='один два три четыре'; b:=copy (s,10,4); A) 'два ' B) ' два три ' C) 'три ' D) 'н два три ' E) 'три' $$$ 139 Определить значение переменной d: s:='один два ';a:='два '; b:='три '; c:='четыре'; d:=concat(s,a,b,c); A) 'один ' B) 'один два два три четыре' C) 'один два три четыре' D) 'один три четыре' E) 'два ' $$$ 140 Определить значение переменной s: s:='один три четыре'; a:='два '; insert(a,s,6); A) 'два один три четыре' B) 'один три четыре два' C) 'один два три четыре' D) 'один тдва ри четыре' E) 'одиндва три четыре' $$$ 141 Определить значение переменной d: a:='сорока'; b:='корова'; delete(b,2,3); delete(a,2,5); concat(b,a); A) скак B) корасо C) кска D) сква E) квас $$$ 142 Определить значение переменной k: c:='старт'; delete(c,2,1); k:=pos('т',c); A) 1 B) 2 C) 3 D) 4 E) 5 $$$ 143 Определить значение переменной c: a:='пар'; b:='ход'; d:=copy(b,2,1); c:=concat(a,d,b); A) ходдпар B) пароход C) параход D) опарход E) ходопар $$$ 144 Определить значение переменной s: s:='программа'; a:=copy(s,1,3); insert(a,s,6); A) про B) програмпрома C) программа D) прогрпроамма E) грамма $$$ 145 Определить значение переменной b: s:='переменная'; k:=pos('е',s); b:=copy(s,k,3); A) рем B) ере C) енн D) нна E) еме $$$ 146 Определить значение переменной a: a:='переменная'; b:=copy(a,1,3); delete(a,1,3); A) 'переменная' B) 'ременная' C) 'еменная' D) 'пееменная' E) 'перменная' $$$ 147 Определить значение переменной d: a:='сумма'; b:='два'; d:=concat(a,b); delete(d,5,3); A) сумм B) мма C) ммадв D) асумм E) сумма $$$ 148 Определить значение переменной a: a:='сумма'; k:=pos('м',a); insert('да',a,k); A) судамма B) сумдама C) дасумма D) суммада E) сдаумма $$$ 149 Определить значение переменной s: a:='победа'; k:=pos('п',a); delete(s,k,2); A) беда B) поеда C) обеда D) побед E) пода $$$ 150 Определить значение переменной b: a:='победа'; k:=length(a); b:=copy(a,k-4,2); A) бе B) да C) по D) об E) ед $$$ 151 Дан массив A из элементов 1, 3, -2, 4, 5, -3. p := 0; for I := 4 downto 1 do if odd( A[ I ] ) then p := p - A[ I ]; Найти значение p: A) -4 B) 4 C) -2 D) 2 E) -3 $$$ 152 Дан массив A из элементов 5, 8, -3, 4, -7, -2. s := 0; for I := 1 to 2 do if odd( A[ I ] ) then s := s + A[ I ]; Найти значение s: A) 10 B) 8 C) -5 D) 5 E) 13 $$$ 153 Дан массив A из элементов -3, 7, 4, 6, -2, -3. p := 0; for I := 3 to 4 do if not odd( I ) then p := p + A[ I ]; Найти значение p: A) 6 B) -1 C) 10 D) 17 E) 14 $$$ 154 Дан массив A из элементов 1, 2, -2, 0. for J := 2 to 4 do I := J ; Y := A[ I ]; Найти значение Y: A) –1 B) 0 C) -2 D) зацикливание E) 2 $$$ 155 Дан массив A из элементов 8, 4, -7, -2. s := 0; for I := 1 to 2 do if odd( A[ I ] ) then s := s + A[ I ]; Найти значение s: A) 0 B) 8 C) -5 D) 5 E) 13 $$$ 156 Дан массив A из элементов 8, -3, -7, -2. s := 0; for I := 1 to 2 do if odd( A[ I ] ) then s := s + A[ I ]; Найти значение s: A) 10 B) 8 C) -3 D) 3 E) 11 $$$ 157 Дан массив A из элементов 5, 8, -3, 4, -7, -2. s := 0; for I := 1 to 2 do if odd(I) then s := s + a[I]; Найти значение s: A) 5 B) 8 C) -5 D) 15 E) 13 $$$ 158 Дан массив A из элементов 3, -7, -4, -6, 2, 3. p := 0; for I := 3 to 4 do if not odd( a[I] ) then p := p + A[ I ]; Найти значение p: A) -10 B) -1 C) 4 D) 17 E) 14 $$$ 159 Дан массив A из элементов -3, 7, 4, 6, -2, -3. p := 0; for I := 6 downto 4 do if not odd( I ) then p := p + A[ I ]; Найти значение p: A) 3 B) -1 C) 4 D) 17 E) 14 $$$ 160 Дан массив A из элементов -1, 2, -2, 0. for J := 2 to 4 do I := j div 2 ; Y := A[ I ]; Найти значение Y: A) –1 B) 2 C) -2 D) зацикливание E) 0 $$$ 161 Дан массив A из элементов -1, 2, -2, 0. for J := 2 to 4 do I := j mod 3 ; Y := A[ I ]; Найти значение Y: A) -1 B) 0 C) -2 D) зацикливание E) 2 $$$ 162 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: A) 4 B) 5 C) 2 D) 3 E) 0 $$$ 163 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: A) 4 B) 15 C) 2 D) 3 E) 0 $$$ 164 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: A) 4 B) -10 C) 2 D) 3 E) 0 $$$ 165 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: A) -10 B) 10 C) 2 D) 3 E) 0 $$$ 166 Каким будет значение переменной x после выполнения последовательности действий: 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. A) 0 B) 1 C) true D) false E) 0 1 $$$ 167 Каким будет значение переменной x после выполнения последовательности действий: 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. A) 0 B) 1 C) true D) false E) 0 1 $$$ 168 Какие значения появятся на экране: 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. A) 1 2 3 4 5 B) 5 4 3 2 1 C) 1 2 3 4 5 1 2 3 D) 1 1 2 2 3 3 4 5 E) 10 $$$ 169 Какие значения появятся на экране: 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. A) 1 2 3 4 5 B) 5 4 3 2 1 C) 1 2 3 D) 4 5 E) 5 4 $$$ 170 Какие значения появятся на экране: 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. A) 1 2 3 4 5 B) 5 4 3 2 1 C) 1 2 3 D) 4 5 E) 1 1 2 2 3 3 4 5 $$$ 171 Какие значения появятся на экране: 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. A) 1 2 3 4 5 B) 5 4 3 2 1 C) 1 2 3 D) 4 5 E) 0 $$$ 172 Выберите один из вариантов вхождения элемента в множество, результат которого примет значение false: A) 5 in [0..5]. B) [] in [0..5]. C) X in [x - 1, x - 2]. D) 1 in [1..15]. E) 100 in [99..101]. $$$ 173 Определить результат операции над множествами: [1, 2, 3, 4, 4] + [3, 4, 4, 5, 6] A) [1, 2, 5, 6]. B) [3, 4, 4]. C) [1..6]. D) [1, 2, 3]. E) [4, 4]. $$$ 174 Определить результат операции над множествами: [1, 2, 3, 4, 4] * [3, 4, 4, 5, 6] A) [1, 2, 5, 6]. B) [3, 4]. C) [1, 2, 3, 4, 5, 6]. D) [1, 2, 3, 4, 4, 5, 6]. E) [1, 2, 3, 3, 4, 4, 4, 4, 5, 6]. $$$ 175 Определить результат операции над множествами: ['1', '2', '3'] * ['8', '9', '10'] A) ['8', '18', '30']. B) [ ]. C) ['9', '11', '13']. D) ['1', '2', '3', '8', '9', '10']. E) [1, 2, 3, 8, 9, 10]. $$$ 176 Задана функция max, описанная в отрывке программы program bolhee; var a,b,c : integer; function max(a,b :integer) : integer; Какое из обращений к этой функции |