Часть 1: с выбором ответа
1. количество цифр, составляющих алфавит системы счисления, называют
а) системой счисления б) цифрами системы счисления
в) алфавитом системы счисления г) основанием системы счисления
2. сколько цифр 0 в двоичном представлении числа 2210?
а) 3 б) 4 в) 2 г) 6
3. в знаковый разряд ячейки для неотрицательного числа заносится:
а) 0 б) 1 в) + г) -
4. для каких из указанных значений числа x истинно высказывание ?
а) 3 б) 6 в) 2 г) 4
часть 2: с развернутым ответом
5. переведите число 2310 в двоичную, восьмеричную и шестнадцатеричную системы счисления.
6. когда сломался компьютер, его хозяин сказал: «оперативная память не могла выйти из строя». сын хозяина компьютера предположил, что вышел из строя процессор, а жёсткий диск исправен. пришедший специалист по обслуживанию сказал, что, скорее всего, с процессором всё в порядке, а оперативная память неисправна. в результате оказалось, что двое из них сказали всё верно, а третий – всё неверно. что же сломалось?
7. четыре подруги — маша, полина, ольга и наташа – участвовали в соревнованиях по бегу и заняли первые четыре места. установите, кто какое место занял, если известно, что в каждом из ниже ответов, которые дали девушки на вопрос опоздавшего к финишу корреспондента, кто какое место занял, верной является лишь половина ответа.
наташа: «ольга была второй, а полина — первой».
маша: “нет, наташа. ольга была первой, а второй была ты”.
ольга: «да что вы, девочки! третьей была маша, а полина — четвертой».
var
n,s,t,i:integer;
begin
Write('Укажите количество данных: ');
Read(n);
Writeln('Теперь вводите данные');
s:=0;
for i:=1 to n do
begin
Read(t);
s:=s+t
end;
Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.
Пример решения
Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4
//чисел, кратных 3. Программа получает на вход количество чисел в
//последовательности, а затем сами числа. В последовательности всегда имеется число,
//кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300.
//Программа должна вывести одно число - количество чисел, кратных 3.
Var i,j,x :word;
n :integer;
begin
writeln('Введите количество цифр в последовательности');
Readln (j);
if j>100 then //Проверка накличество чисел в последовательности
begin
writeln ('По условия задачи цифр не должно быть более 100');
writeln ('Введите количесво цифр еще раз');
readln (j);
end;
for i:=1 to j do
begin
Writeln ('Введите ',i,' число');
readln (n);
if n>300 then //проверка максимального значения числа
begin
writeln ('Данное число не удовлетворяет условиям задачи (>300');
writeln ('Введите его еще раз');
readln (n);
end;
n:= n mod 3;
if n=0 then x:=x+1;
end;
Writeln ('Количество чисел, кратных 3:');
Writeln (x);
end.