Совокупность знаков, с которых записываются числа, называются:
а) системой счисления
б) цифрами системы счисления
в )алфавитом системы счисления
г) основанием системы счисления
2. Число 201011 может существовать с системах счисления с основаниями:
а) 2 и 10
б) 4 и 3
в) 2 и 8
г) 2 и 4
3. Количество разрядов, занимаемых двухбайтовым числом, равно:
а) 8
б) 16
в) 32
г) 64
4. Алгоритмом можно считать:
а) описание процесса решения квадратного уравнения
б) расписание уроков в школе
в) технический паспорт автомобиля
г) список класса в журнале
5. Наибольшей наглядностью обладает следующая форма записи алгоритмов:
а) словесная
б) рекурсивная
в) графическая
г) построчная
6. Дан фрагмент алгоритма
а:=8
b:=6+3*a
a:=b/3*a
Чему равно значение переменной а после его исполнения?
7. Определите значение переменной s после выполнения фрагмента алгоритма:
s:-0
нц для i от 1 до 5
s:=s+i*i
кц
8. Вещественные числа имеют тип данных :
а) real
б) integer
в) boolean
г) string
9. В программе на языке Паскаль обязательно должен быть:
а) заголовок программы
б) блок описания используемых данных
в) программный блок
г) оператор присваивания
10. Разделителями между операторами служит:
а) точка
б) точка с запятой
в) пробел
г) запятая
11. При присваивании изменяется:
а) имя переменной
б) тип переменной
в) значение переменной
г) значение константы
12. В данном фрагменте программы
s:=0
for i:=1 to 10 do
s:=s+2*i;
Вычисляется:
а) сумма целых чисел от 1 до 10
б) сумма четных чисел от 1 до 10
в) удвоенная сумма целых чисел от 0 до 10
г) сумма первых десяти натуральных четных чисел
По закону дистрибутивности раскроем скобки
(Av¬A)&(AvB)
Av¬A = 1, значит остаётся AvB
2) F =A&(¬AvB)
По тому же закону раскрываем скобки
(A&¬A)v(A&B)
A&¬A = 0, значит остаётся A&B
3. (AvB)&(¬BvA)&(¬CvB)
По закону склеивания (AvB)&(¬BvA) = A , получается, что выражение принимает вид
A&(¬CvB)
Можно раскрыть скобки, получим
A&¬C v A&B
4) F =(1v(AvB))v((AC)&1)
Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1
Получаем выражение
1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1
ответ 1
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.