1. как представлено число 42^10 в восьмеричной системе счисления? * 27^8 52^8 47^8 36^8 2. какое из чисел следует за числом 127^8 в восьмеричной системе счисления? * 131^8 137^8 130^8 128^8 3. сколько единиц в двоичной записи числа 205^10? * 5 2 3 4 4. чему равна сумма чисел x и y при x=11011^2, y=1010^2? * 111001^2 100101^2 10001^2 111011^2 5. переведите число 45^10 из десятичной системы счисления в двоичную: * 6. переведите числo 111001^2 из двоичной системы счисления в десятичную: * 7. переведите числo 98^10 из десятичной системы счисления в восьмиричную: * 8. чему равна сумма 11101^2 и 1001^2? * 9. переведите числo 69^10 из десятичной системы счисления в двоичную: * 10. переведите числo 110011^2 из двоичной системы счисления в десятичную: * 11. переведите числo 102^10 из десятичной системы счисления в восьмиричную: * 12. чему равна сумма 11110^2 и 10111^2? *

1)52(8)

2)130(8)

3)5

4)100101

5)101101

6)57

7)131

8)100110

9)1000101

10)51

11)146

12)110101

Переменные — контейнеры для хранения изменяемых данных. Без них не обходится практически ни одна программа. Для переменную можно сравнить с номерком в гардеробе — вы сдаете в "гардероб" какие-то данные, в ответ вам выдается номерок. Когда вам опять потребовались эти данные, вы "предъявляете номерок" и получаете их. Пример работы с переменными в VBA может выглядеть так:

Dim nMyAge As Integer

nMyAge = nMyAge + 10

MsgBox nMyAge

Перед работой с переменной настоятельно рекомендуется ее объявить. Объявление переменной в нашем примере выглядит так:

Dim nMyAge As Integer

Как расшифровать эту строку:

Dim — это область видимости переменной. В VBA предусмотрено 4 ключевых слова для определения области видимости переменных:

1)

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do write(a[ i]:8); writeln;

for i:=n downto 1 do write(a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

2)

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[ i]); readln;

for i:=1 to n do if a[i]<0 then write(i:2,a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

3)

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do if not odd(i) then write(a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

4)

var i,n,s:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do write(a[i]:8); writeln;

s:=0; for i:=1 to n do s:=s+a[i]; writeln('Sum=',s); ;

writeln('Для выхода нажмите Enter'); readln

end.

Объяснение: