1. Сколько единиц в двоичной записи восьмеричного числа 175? А) 6 В) 5 C) 3
D) 4
2. Значение выражения 1000, + 118-1116 в двоичной системе счисления равно
А) 10111110 В) 10100001
C) 10001 100 D) 11000010
3. Определите значение целочисленных переменных а и b после выполнения фрагмента
программы:
а:= 1819; b:= (a mod 100)*10+9; a:= (10*b-a) div 100;
А) а = 1, b = 199 В) а = 81, b = 189 С) а = 71, b = 199 D) a=71, b = 189
4. Значения двух массивов А[1..100] и В[1..100] задаются с следующего
фрагмента программы. Сколько элементов массива В будут иметь отрицательные
значения?
for n:=1 to 100 do A[n]:=n-10; fоr n:=1 to 100 do B[n]:=A[n]*n;
А) 10 В) 50 C) 90 D) 100
5. Укажите, какое логическое выражение равносильно выражению АЛВА.
А) Ал ТВ
B) А
С) АЛВ
D) AvВ
6. Какое логическое выражение равносильно выражению Av вл С?
A) AlcvB B) Av1cv B) C) AV (Cy B) D) AvlcvВ
7. Рассматривается множество неотрицательных целых чисел. Определите
максимальное число из этого множества, кодируемое 11 битами.
А) 2047
B) 11 C) 888
D) 1024
8. Укажите минимальный объем памяти в килобайтах, достаточный для хранения
растрового изображения размером 512x256 пикселей с 64 цветами в палитре.
А) 512
В) 96 C) 1024 D) 16
9. MS Excel. В ячейке В1 записана формула =2*$A$1. Какой вид приобретет формула,
после того как ячейку В1 скопируют в ячейку С2?
А) =2*SBS IB) =2*$ASIC) =3*$A$2D) =3*$B$ 1
10.Вычислите сумму чисел 1916 и 638. Результат представьте в двоичной системе
счисления.
А) 1 101 1011
B) 1110001 C) 1100011 D) 1001 100
11.Каково наибольшее целое число X, при котором истинно высказывание:
X (X + 1) 2 72)л (ХХ <65)?
В) 8 C) 7 D) 1 1
12.Ссылка в электронной таблице - это:
А) номер столбца и номер строки
В указания адреса ячеек
C) совокупность математическихоператоров чисел, функций
D)область определяемая пересечением столбца и строки электронной таблицы
13.Имя файла обязательно должно содержать
A) название
B) расширение
C) названием и расширения
D) все ответы верны
uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;
Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1)
then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
k:=0;
for i:=1 to N do
for j:=1 to M do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 = 0) then k:=k+1;
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to M do
Begin
Write(mas[i,j], ' ')
end;
Writeln();
end;
Writeln();
Writeln('Количество четных элементов = ',k);
end;
readln;
end.
Храним в памяти 3 последних считанных числа. Для каждой такой тройки проверяем, верно ли, что a[i] - a[i - 1] = a[i - 1] - a[i - 2] > 0. Если это так, выводим тройку, устанавливаем флажок found и выходим из цикла. Если после завершения работы цикла found = false, то тройка не найдена, нужно вывести -1.
В PascalABC.NET тип integer хранит числа до 2 с лишним миллиардов, все числа и разность чисел должны в нем поместиться.
Код (PascalABC.NET 3.4.2.1837):
begin
var values := new integer[3];
var n := readinteger;
(values[1], values[2]) := readinteger2;
var prev_diff := values[1] - values[0];
var found := false;
for var i := 3 to n do begin
values[i mod 3] := readinteger;
var diff := values[i mod 3] - values[(i - 1) mod 3];
if (diff = prev_diff) and (diff > 0) then begin
print(values[(i - 2) mod 3], values[(i - 1) mod 3], values[i mod 3]);
found := true;
break;
end;
prev_diff := diff;
end;
if not found then print(-1);
end.