Часть 1: с выбором ответа
1. количество цифр, составляющих алфавит системы счисления, называют
а) системой счисления б) цифрами системы счисления
в) алфавитом системы счисления г) основанием системы счисления
2. сколько цифр 0 в двоичном представлении числа 2210?
а) 3 б) 4 в) 2 г) 6
3. в знаковый разряд ячейки для неотрицательного числа заносится:
а) 0 б) 1 в) + г) -
4. для каких из указанных значений числа x истинно высказывание ?
а) 3 б) 6 в) 2 г) 4
часть 2: с развернутым ответом
5. переведите число 2310 в двоичную, восьмеричную и шестнадцатеричную системы счисления.
6. когда сломался компьютер, его хозяин сказал: «оперативная память не могла выйти из строя». сын хозяина компьютера предположил, что вышел из строя процессор, а жёсткий диск исправен. пришедший специалист по обслуживанию сказал, что, скорее всего, с процессором всё в порядке, а оперативная память неисправна. в результате оказалось, что двое из них сказали всё верно, а третий – всё неверно. что же сломалось?
7. четыре подруги — маша, полина, ольга и наташа – участвовали в соревнованиях по бегу и заняли первые четыре места. установите, кто какое место занял, если известно, что в каждом из ниже ответов, которые дали девушки на вопрос опоздавшего к финишу корреспондента, кто какое место занял, верной является лишь половина ответа.
наташа: «ольга была второй, а полина — первой».
маша: “нет, наташа. ольга была первой, а второй была ты”.
ольга: «да что вы, девочки! третьей была маша, а полина — четвертой».
a:integer;
begin
write('Введите время=');
readln(a);
if a=0 then begin
write('Ночь');
end;
if a=1 then begin
write('Ночь');
end;
if a=2 then begin
write('Ночь');
end;
if a=3 then begin
write('Ночь');
end;
if a=4 then begin
write('Ночь');
end;
if a=5 then begin
write('Утро');
end;
if a=6 then begin
write('Утро');
end;
if a=7 then begin
write('Утро');
end;
if a=8 then begin
write('Утро');
end;
if a=9 then begin
write('Утро');
end;
if a=10 then begin
write('Утро');
end;
if a=11 then begin
write('День');
end;
if a=12 then begin
write('День');
end;
if a=13 then begin
write('День');
end;
if a=14 then begin
write('День');
end;
if a=15 then begin
write('День');
end;
if a=16 then begin
write('День');
end;
if a=17 then begin
write('Вечер');
end;
if a=18 then begin
write('Вечер');
end;
if a=19 then begin
write('Вечер');
end;
if a=20 then begin
write('Вечер');
end;
if a=21 then begin
write('Вечер');
end;
if a=22 then begin
write('Ночь');
end;
if a=23 then begin
write('Ночь');
end;
if a=24 then begin
write('Ночь');
end;
end.
type
Matrix=array[,] of integer;
procedure MatPrint(a:Matrix; w:integer);
begin
for var i:=0 to Length(a,0)-1 do begin
for var j:=0 to Length(a,1)-1 do Write(a[i,j]:w);
Writeln
end
end;
procedure MatProd(a,b,c:Matrix);
begin
for var i:=0 to Length(a,0)-1 do
for var j:=0 to Length(b,1)-1 do begin
var s:=0;
for var k:=0 to Length(a,1)-1 do s+=a[i,k]*b[k,j];
c[i,j]:=s
end
end;
begin
var a,b,c:Matrix;
var m,n,p:integer;
Write('Число строк матрицы А: '); Read(n);
Write('Число столбцов матрицы А и строк матрицы В: '); Read(m);
Write('Число столбцов матрицы В: '); Read(p);
a:=MatrixRandom(n,m,-50,50);
Writeln('Матрица А'); MatPrint(a,4);
b:=MatrixRandom(m,p,-50,50);
Writeln('Матрица B'); MatPrint(b,4);
SetLength(c,n,p);
Writeln('Матрица C');
MatProd(a,b,c);
MatPrint(c,7)
end.
Тестовое решение:
Число строк матрицы А: 4
Число столбцов матрицы А и строк матрицы В: 8
Число столбцов матрицы В: 7
Матрица А
33 -30 20 7 1 5 10 -47
-6 -1 -22 6 -33 41 4 -1
-10 -45 -16 6 -13 9 1 37
5 37 15 -48 42 -19 1 26
Матрица B
-19 42 -14 -36 38 -18 -41
-24 -20 26 -50 -36 -5 -32
-1 5 -43 15 11 49 0
-44 -35 -27 20 33 -49 14
40 7 -38 -37 48 2 -26
-24 5 -11 12 -43 47 -42
-24 11 8 -13 -9 -13 -12
-41 46 -24 20 3 -25 -25
Матрица C
1372 -179 -1176 -295 2387 1475 524
-2463 -580 1701 1697 -3622 575 -525
-1255 1857 -989 3806 353 -1214 957
2160 2631 -460 -4040 341 1340 -3017