1.Дано десятичное число 91. Выберите ответ, который показывает, какие разряды у числа в двоичном представлении будут равны 1 (единице). Например у числа 5 - это 1 и 3 разряд. 1,2,4,5,7
1,3,4,6,7
1,4,5,7
1,2,5,7
2.Дано двоичное число 100100101, сколько к нему надо прибавить в десятичной системе, что бы получить число 400. Напишите только число.
3.Выберите все правильные ответы - какие действия можно совершать с информацией?
Получение информации
Понимание информации
Актуализация информации
Обработка информации
Передача информации
Хранение информации
Сколько раз потребуется разделить число 127 на 2, что бы получить двоичное число? Например, число 5, потребуется разделить на 2 - 2 раза (1 на 2 делить не требуется)
3
6
8
5
6.Сколько байт содержит фраза: Привет, мир! Введите только число.
7.Даны десятичные числа: 67, 89, 257, 29. Отметьте только те двоичные числа, которые соответствуют числам из данного набора.
100000001
10111
1000011
11101
1011001
1001101
8.Как различаются следующие виды информации по представления? Выберите все правильные ответы
Числовая
Вкусовая
Графическая и видео
Обонятельная
Текстовая
Звуковая
9.Сколько килобайт содержится 134 терабайтах? Введите только число.
10.Сколько значений может иметь 1 бит информации?
4
1
2
3
11.Сколько бит содержит полубайт? Напишите только число
Ну например 1) Какое из двух введённых чисел больше
2) Являются ли 2 числа взаимно обратными
3) Ну и сложная задача Нахождение Наименьшего общего кратного 2ух чисел.
Program N1;
Uses Crt;
var a,b:real;
begin
clrscr;
write('Введите число a:');
readln(a);
write('Введите число b:');
readln(b);
if (a=b) then writeln('Числа равны ');
if (a>b) then writeln ('Число а больше ')
else writeln ('Число b больше ');
readkey;
end.
Program N2;
Uses Crt;
var a,b:real;
begin
clrscr;
write('Введите число a:');
readln(a);
write('Введите число b:');
readln(b);
if (a+b)=0 then writeln('Числа взаимно обратны !')
else writeln('Числа не являются взаимно обратными !');
readkey;
end.
Program N3;
Uses Crt;
var n,m,res,nok:integer;
function evklid( a, b: longint): longint;
begin
while (a <> 0) and (b <> 0) do
if a >= b then
a:= a mod b
else
b:= b mod a;
evklid:= a + b;
end;
begin
clrscr;
writeln('Введите A и B');
readln(M, N);
res:= (Evklid(n,m));
nok:= (m*n) div res;
writeln('NOK=',nok);
readkey;
end.
Program Num3;
Uses Crt;
var a,b,c,n,s:integer;
begin
clrscr;
write('Введите 3 числа: ');
readln(a,b,c);
n:=0;s:=0;
if (a mod 2)=0 then
begin
n:=n+1;
s:=s+a;
end;
if (b mod 2)=0 then
begin
n:=n+1;
s:=s+b;
end;
if (c mod 2)=0 then
begin
n:=n+1;
s:=s+c;
end;
if (n=0) then writeln('Нету чётных чисел вообще !! ')
else writeln('Количество чётных чисел:',n,'Их сумма: ',s);
readkey;
end.