СЛОЖНОО
1. Что такое системы счисления?
А) цифры 1,2,3,4,5,6,7,8,9;

В) правила арифметических действий;

С) компьютерная программа для арифметических вычислений;

Д) это знаковая система, в которой числа записываются по определенным правилам, с знаков некоторого алфавита, называемых цифрами.

2. Переведите число 37 из десятичной системы счисления в двоичную:
А) 100101;

В) 10101;

С) 10011;

Д) 101101.

3. Переведите число 11010 2 из двоичной системы счисления в десятичную систему счисления.
А) 18;

В) 24;

С) 26;

Д) 14.

4. Какие системы счисления не используются специалистами для общения с ЭВМ?
А) десятичная;

В) троичная;

С) двоичная;

Д) шестнадцатеричная.

5. На берегу моря лежало 10 камешков. Набежавшая волна выбросила еще несколько. Их стало 1000. Сколько камешков было выброшено волной?
А) 1000;

В) 1010;

С) 1011;

Д) 1110.

6. Что называется основанием системы счисления?
А) количество цифр, используемых для записи чисел;

В) отношение значений единиц соседних разрядов;

С) арифметическая основа ЭВМ;

Д) сумма всех цифр системы счисления.

7. Переведите число 138 из десятичной системы счисления в двоичную.
А) 1001010;

В) 10001010;

С) 10000110;

Д) 1111110.

8. Переведите число 11011012 из двоичной системы счисления в десятичную систему счисления:
А) 109;

В) 104;

С) 121;

Д) 209.

9. Какая система счисления используется специалистами для общения с ЭВМ:
А) двенадцатеричная;

В) троичная;

С) двоичная;

Д) пятеричная.

10. Греются на солнышке воробьи. На нижней ветке их было 110, а на верхней на 2 меньше. Сколько всего было воробьев?
А) 1000;

В) 1001;

С) 1011;

Д) 1010.

Решения примеров показываем
ну

const max=30;

var c:array[1..max,1..max] of integer;

m,n,i,j,p,k,s:integer;

begin

randomize;

repeat

write('Количество строк от 2 до ',max,' m=');

readln(m);

until m in [2..max];

repeat

write('Количество столбцов от 2 до ',max,' n=');

readln(n);

until n in [2..max];

writeln('Исходная матрица');

for i:=1 to m do

begin

for j:=1 to n do

begin

c[i,j]:=-10+random(21);

write(c[i,j]:4);

end;

writeln;

end;

write('P=');

readln(p);

k:=0;

for i:=1 to m do

begin

s:=0;

for j:=1 to n do

if c[i,j]>0 then s:=s+c[i,j];

if s>p then k:=k+1;

end;

write('Количество строк по условию=',k)

end.

Объяснение:

1.

Sub Button1_click()

Dim matrix(1 To 2, 1 To 3) As Integer

For i = 1 To 3

 matrix(1, i) = 1 ^ 2 + i ^ 2

 matrix(2, i) = -matrix(1, i)

Next i

prompt = ""

For i = 1 To 2

 For j = 1 To 3

  If matrix(i, j) > 0 Then

  prompt = prompt & "       " & matrix(i, j)

  Else

  prompt = prompt & "      " & matrix(i, j)

  End If

  Next j

 prompt = prompt & Chr(13)

Next i

MsgBox prompt

End Sub

10.

Sub Button1_click()

Dim matrix(1 To 2, 1 To 3) As Integer

upperbound = 25

lowerbound = -25

For i = 1 To 2

   For j = 1 To 3

       Randomize

       matrix(i, j) = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

   Next j

Next i

prompt = ""

For i = 1 To 2

 For j = 1 To 3

 If Abs(matrix(i, j)) > 9 And Abs(matrix(i, j)) < 99 Then

 prompt = prompt & "A(" & i & "," & j & ")=" & matrix(i, j) & Chr(13)

 End If

 Next j

Next i

prompt = prompt & Chr(13)

For i = 1 To 2

 For j = 1 To 3

  If matrix(i, j) > 0 Then

  prompt = prompt & "       " & matrix(i, j)

  Else

  prompt = prompt & "      " & matrix(i, j)

  End If

  Next j

 prompt = prompt & Chr(13)

Next i

MsgBox prompt

End Sub

11.

Sub Button1_click()

Dim matrix(1 To 9, 1 To 9) As Integer

For i = 1 To 9

   For j = 1 To 9

       If i = j Or i = 9 + 1 - j Then

           matrix(i, j) = 1

       Else

           matrix(i, j) = 0

       End If

   Next j

Next i

prompt = ""

For i = 1 To 9

 For j = 1 To 9

     prompt = prompt & "   " & matrix(i, j)

  Next j

 prompt = prompt & Chr(13)

Next i

MsgBox prompt

End Sub