Вариант 1.
1. Статья, набранная на компьютере, содержит 32 страницы, на каждой странице 40 строк, в каждой строке 48 символов. Определите размер статьи в кодировке КОИ-8, в которой каждый символ кодируется 8 битами.
1) 120 Кбайт
2) 480 байт
3) 960 байт
4) 60 Кбайт
2. В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, m Dat[1] := 12 Dat[2] := 15 Dat[3] := 17 Dat[4] := 15 Dat[5] := 14 Dat[6] := 12 Dat[7] := 10 Dat[8] := 13 Dat[9] := 14 Dat[10] := 15 m := 0 нц для к от 1 до 10 если Dat[к]=15 то m : = m+1 все КЦ вывод m КОН | DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1)= 12: Dat(2) = 15 Dat(3) = 17: Dat(4) = 15 Dat(5) = 14: Dat(6) = 12 Dat(7) = 10: Dat(8) = 13 Dat(9) = 14: Dat(10) = 15 m = 0 FOR k = 1 TO 10 IF Dat(k)=15 THEN m = m+1 ENDIF NEXT k PRINT m | Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 15; Dat[5] := 14; Dat[6] := 12; Dat[7] := 10; Dat[8] := 13; Dat[9] := 14; Dat[10] := 15; m := 0; for k := 1 to 10 do if Dat[k] = 15 then begin m := m+1; end; writeln(m); End. |
3. В электронной таблице значение формулы =CP3HAЧ(A3:D3) равно 5. Чему равно значение формулы =СУММ(АЗ:СЗ), если значение ячейки D3 равно 6? Пустых ячеек в таблице нет.
4. Сколько единиц в двоичной записи шестнадцатеричного числа 12F016
Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых сумма элементов делится на 3, но не делится на 9. В данной задаче под парой подразумеваются два соседних элемента массива.
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных. В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.
Const N = 20;
Var a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
…
end.
Вариант 2.
1. 64 символа. Определите размер статьи в кодировке КОИ-8, в которой каждый символ кодируется 8 битами.
1) 120 Кбайт
2) 240 Кбайт
3) 1920 байт
4) 960 байт
2. В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, m Dat[1] := 12 Dat[2] := 15 Dat[3] := 17 Dat[4] := 15 Dat[5] := 14 Dat[6] := 12 Dat[7] := 10 Dat[8] := 13 Dat[9] := 14 Dat[10] := 15 m := 0 нц для к от 1 до 10 если Dat[к] m то m : = Dat[к] все КЦ вывод m КОН | DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 12: Dat(2) = 15 Dat(3) = 17: Dat(4) = 15 Dat(5) = 14: Dat(6) = 12 Dat(7) = 10: Dat(8) = 13 Dat(9) = 14: Dat(10) = 15 m = 0 FOR k := 1 TO 10 IF Dat(k) m THEN m = Dat(k) ENDIF NEXT k PRINT m | Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 15; Dat[5] := 14; Dat[6] := 12; Dat[7] := 10; Dat[8] := 13; Dat[9] := 14; Dat[10] := 15; m := 0; for k := 1 to 10 do if Dat[k] m then begin m := Dat[k] end; writeln(m); End. |
3. В электронной таблице значение формулы =СРЗНАЧ(С2:С5) равно 3. Чему равно значение формулы =СУММ(С2:С4), если значение ячейки С5 равно 5?
4. Сколько единиц в двоичной записи десятичного числа 519?
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от –100 до 100 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, сумма которых чётна, а произведение больше 100. Под парой подразумевается два подряд идущих элемента массива. Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования и естественного языка. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.
const
N = 40;
Var a: array [1..N] of longint;
i, j, k: longint;
begin
for i := 1 to N do
readln(a[i]);
...
end.
В качестве ответа Вам необходимо привести фрагмент программы (или описание алгоритма на естественном языке), который должен находиться на месте многоточия.
Вариант 3.
1. Статья, набранная на компьютере, содержит 64 страницы, на каждой странице 40 строк, в каждой строке 40 символов. Определите размер статьи в кодировке КОИ-8, в которой каждый символ кодируется 8 битами.
1) 100 Кбайт
2) 1600 байт
3) 800 байт
4) 200 Кбайт
2. В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, m Dat[1] := 12 Dat[2] := 15 Dat[3] := 17 Dat[4] := 15 Dat[5] := 14 Dat[6] := 12 Dat[7] := 10 Dat[8] := 13 Dat[9] := 14 Dat[10] := 15 m := 20 нц для к от 1 до 10 если Dat[k] m : = Dat[k] все КЦ вывод m КОН | DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 12: Dat(2) = 15 Dat(3) = 17: Dat(4) = 15 Dat(5) = 14: Dat(6) = 12 Dat(7) = 10: Dat(8) = 13 Dat(9) = 14: Dat(10) = 15 m = 20 FOR k := 1 TO 10 IF Dat(k) m = Dat[k] ENDIF NEXT k PRINT m | Var k, m: integer; Dat: array[1...10] of integer; Begin Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 15; Dat[5] := 14; Dat[6] := 12; Dat[7] := 10; Dat[8] := 13; Dat[9] := 14; Dat[10] := 15; m := 20; for k := 1 to 10 do if Dat[k] begin m := Dat[k] end; writeln(m); End. |
3. В электронной таблице значение формулы =СУММ(А5:D5) равно 6. Чему равно значение формулы =СРЗНАЧ(А5:С5), если значение ячейки D5 равно 9? Пустых ячеек в таблице нет.
4. Сколько единиц в двоичной записи восьмеричного числа 17318
5. Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от –100 до 100 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, сумма которых нечётна, а произведение меньше 100. Под парой подразумевается два подряд идущих элемента массива. Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования и естественного языка. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.
Const N = 40;
Var a: array [1..N] of longint;
i, j, k: longint;
begin
for i := 1 to N do
readln(a[i]);
...
end.
В качестве ответа Вам необходимо привести фрагмент программы (или описание алгоритма на естественном языке), который должен находиться на месте многоточия.
Вариант 4.
1. Статья, набранная на компьютере, содержит 32 страницы, на каждой странице 40 строк, в каждой строке 64 символа. Определите размер статьи в кодировке КОИ-8, в которой каждый символ кодируется 8 битами.
1) 640 байт
2) 160 Кбайт
3) 1280 байт
4) 80 Кбайт
2. В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, m Dat[1] := 12 Dat[2] := 15 Dat[3] := 17 Dat[4] := 15 Dat[5] := 14 Dat[6] := 12 Dat[7] := 10 Dat[8] := 13 Dat[9] := 14 Dat[10] := 15 m := 0 нц для к от 1 до 10 если Dat[к] 12 то m : = m + 1 все КЦ вывод m КОН | DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 12: Dat(2) = 15 Dat(3) = 17: Dat(4) = 15 Dat(5) = 14: Dat(6) = 12 Dat(7) = 10: Dat(8) = 13 Dat(9) = 14: Dat(10) = 15 m = 0 FOR k := 1 TO 10 IF Dat(k) 12 THEN m = m + 1 ENDIF NEXT k PRINT m | Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 15; Dat[5] := 14; Dat[6] := 12; Dat[7] := 10; Dat[8] := 13; Dat[9] := 14; Dat[10] := 15; m := 0; for k := 1 to 10 do if Dat[k] 12 then begin m := m + 1 end; writeln(m); End. |
3. В электронной таблице значение формулы =CУMM(D2:D5) равно 10. Чему равно значение формулы =CP3HAЧ(D2:D4), если значение ячейки D5 равно −2? Пустых ячеек в таблице нет.
4. Переведите в двоичную систему десятичное число 99.
Дан массив, содержащий неотрицательные целые числа. Если сумма всех элементов массива чётная, нужно вывести количество чётных (по значению) элементов массива, если нечётная – количество нечётных.
Например, для массива из 6 элементов, равных соответственно 2, 6, 12, 17, 3, 8, ответом будет 4 – количество чётных элементов, так как общая сумма всех элементов чётна.
Напишите на одном из языков программирования программу для решения этой задачи. Исходные данные объявлены так, как показано ниже.
Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.
Const N=2000;
Var a: array [1..N] of integer;
i, k: integer;
begin
for i:=1 to N do
readln(a[i]);
…
end.
В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.
Вариант 5.
1. Статья, набранная на компьютере, содержит 48 страниц, на каждой странице 40 строк, в каждой строке 40 символов. Определите размер статьи в кодировке КОИ-8, в которой каждый символ кодируется 8 битами.
1) 75 Кбайт
2) 150 Кбайт
3) 1200 байт
4) 600 байт
2. В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, m Dat[1] := 2 Dat[2] := 5 Dat[3] := 8 Dat[4] := 5 Dat[5] := 4 Dat[6] := 2 Dat[7] := 0 Dat[8] := 3 Dat[9] := 4 Dat[10] := 5 m := 0 нц для к от 1 до 10 если Dat[к] m то m : = Dat[к] все КЦ вывод m КОН | DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 2: Dat(2) = 5 Dat(3) = 8: Dat(4) = 5 Dat(5) = 4: Dat(6) = 2 Dat(7) = 0: Dat(8) = 3 Dat(9) = 4: Dat(10) = 5 m = 0 FOR k := 1 TO 10 IF Dat(k)m THEN m = Dat[k] ENDIF NEXT k PRINT m | Var k, m: integer; Dat: array[1...10] of integer; Begin Dat[1] := 2; Dat[2] := 5; Dat[3] := 8; Dat[4] := 5; Dat[5] := 4; Dat[6] := 2; Dat[7] := 0; Dat[8] := 3; Dat[9] := 4; Dat[10] := 5; m := 0; for k := 1 to 10 do if Dat[k] m then begin m := Dat[k] end; writeln(m); End. |
3. В электронной таблице значение формулы =СРЗНАЧ(А4:С4) равно 5. Чему равно значение формулы СУММ(А4:D4), если значение ячейки D4 равно 6? Пустых ячеек в таблице нет.
4. Переведите в десятичную систему двоичное число 1010012
Дан массив, содержащий неотрицательные целые числа. Если сумма всех элементов массива чётная, нужно вывести количество нечётных (по значению) элементов массива, если нечётная – количество чётных.
Например, для массива из 6 элементов, равных соответственно 2, 6, 12, 17, 3, 8, ответом будет 2 – количество нечётных элементов, так как общая сумма всех элементов чётна.
Напишите на одном из языков программирования программу для решения этой задачи. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.
Const N=2000;
Var a: array [1..N] of integer;
i, k: integer;
begin
for i:=1 to N do
readln(a[i]);
…
end.
В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.
Вариант 6.
1. Статья, набранная на компьютере, содержит 64 страницы, на каждой странице 40 строк, в каждой строке 48 символов. Определите размер статьи в кодировке КОИ-8, в которой каждый символ кодируется 8 битами.
1) 1920 байт
2) 960 байт
3) 120 Кбайт
4) 240 Кбайт
2. В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, m Dat[1] := 2 Dat[2] := 5 Dat[3] := 7 Dat[4] := 5 Dat[5] := 4 Dat[6] := 2 Dat[7] := 0 Dat[8] := 3 Dat[9] := 4 Dat[10] := 5 m := 10 нц для к от 1 до 10 если Dat[к] m : = Dat[к] все КЦ вывод m КОН | DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 2: Dat(2) = 5 Dat(3) = 7: Dat(4) = 5 Dat(5) = 4: Dat(6) = 2 Dat(7) = 0: Dat(8) = 3 Dat(9) = 4: Dat(10) = 5 m = 10 FOR k := 1 TO 10 IF Dat(k) m = Dat[k] ENDIF NEXT k PRINT m | Var k, m: integer; Dat: array[1...10] of integer; Begin Dat[1] := 2; Dat[2] := 5; Dat[3] := 7; Dat[4] := 5; Dat[5] := 4; Dat[6] := 2; Dat[7] := 0; Dat[8] := 3; Dat[9] := 4; Dat[10] := 5; m := 10; for k := 1 to 10 do if Dat [ k] begin m := Dat[k] end; writeln(m); End. |
3. В электронной таблице значение формулы =СРЗНАЧ(Е2:Е4) равно 3,
Чему равно значение формулы =СУММ(Е2:Е5), если значение ячейки Е5 равно 5? Пустых ячеек в таблице нет
4. Переведите число В0С16 в двоичную систему счисления.
Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых сумма элементов делится на 2, но не делится на 4. В данной задаче под парой подразумеваются два соседних элемента массива.
Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.
Const N = 20;
Var a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
…
end.
В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.
Вариант 7.
1. Статья, набранная на компьютере, содержит 64 страницы, на каждой странице 40 строк, в каждой строке 64 символа. Определите размер статьи в кодировке КОИ-8, в которой каждый символ кодируется 8 битами.
1) 160 Кбайт
2) 320 Кбайт
3) 1280 байт
4) 2560 байт
2. В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач целтаб Dat[1:10] цел к, m Dat[1] := 2 Dat[2] := 5 Dat[3] := 7 Dat[4] := 5 Dat[5] := 4 Dat[6] := 2 Dat[7] := 0 Dat[8] := 2 Dat[9] := 4 Dat[10] := 5 m := 0 нц для к от 1 до 10 если Dat[к] 3 то m : = m+1 все КЦ вывод m КОН | DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 2: Dat(2) = 5 Dat(3) = 7: Dat(4) = 5 Dat(5) = 4: Dat(6) = 2 Dat(7) = 0: Dat(8) = 2 Dat(9) = 4: Dat(10) = 5 m = 0 FOR k := 1 TO 10 IF Dat(k) 3 THEN m =m+1 ENDIF NEXT k PRINT m | Var k, m: integer; Dat: array[1...10] of integer; Begin Dat[1] := 2; Dat[2] := 5; Dat[3] := 7; Dat[4] := 5; Dat[5] := 4; Dat[6] := 2; Dat[7] := 0; Dat[8] := 2; Dat[9] := 4; Dat[10] := 5; m := 0; for k := 1 to 10 do if Dat[k] 3 then begin m := m+1 end; writeln(m); End. |
3. В электронной таблице значение формулы =СУММ(А7:С7) равно 9. Чему равно значение формулы =CPЗHAЧ(A7:D7). если значение ячейки D7 равно 3? Пустых ячеек в таблице нет.
4. Переведите в шестнадцатеричную систему счисления двоичное число 101011.
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от –100 до 100 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, произведение которых положительно, а сумма кратна 7. Под парой подразумевается два подряд идущих элемента массива. Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования и естественного языка. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.
Const N = 40;
Var a: array [1..N] of longint;
i, j, k: longint;
begin
for i := 1 to N do
readln(a[i]);
...
end.
В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.
14
3 606
16 366 
