Задание 2 Вопрос:
Выберите преимущества двоичной системы счисления.
Выберите несколько из 5 вариантов ответа:
1) Существует математический аппарат, обеспечивающий логические преобразования двоичных данных.
2) Двоичные числа представляются в компьютере с достаточно простых технических элементов с двумя устойчивыми состояниями.
3) Представление чисел в двоичной системе счисление более привычно для человека.
4) Двоичная арифметика наиболее проста.
5) Представление информации посредством только двух состояний надёжно и помехоустойчиво.
Задание 3
Вопрос:
Решите пример (1000112 + 1101112) · 112 и выберите верный вариант ответа.
Выберите один из 4 вариантов ответа:
1) 1000011102. 3) 100001102.
2) 100011102. 4) 111000012.
Задание 4
Вопрос:
Решите пример 1112 · 1102 + 111012 и выберите верный вариант ответа в десятичной системе счисления.
Выберите один из 4 вариантов ответа:
1) 7110. 3) 6310.
2) 1710. 4) 7710.
Задание 5
Вопрос:
На использовании каких таблиц основывается вся арифметика двоичной системы счисления?
Выберите несколько из 4 вариантов ответа:
1) Сложение. 3) Умножение.
2) Вычитание. 4) Деление.
Задание 6
Вопрос:
Чему равна сумма двоичных чисел 11002 и 1012?
Выберите один из 4 вариантов ответа:
1) 110012. 3) 10012.
2) 100012. 4) 11001012.
Задание 7
Вопрос:
Чему равно произведение двоичных чисел 1000112 и 1002 в десятичной системе счисления?
Выберите один из 4 вариантов ответа:
1) 14210. 3) 3510.
2) 15210. 4) 14010.
Задание 8
Вопрос:
Чему равна сумма двоичных чисел 11000012 и 100102 в десятичной системе счисления?
Выберите один из 4 вариантов ответа:
1) 15010. 3) 11510.
2) 11110. 4) 12310.
Задание 9
Вопрос:
Чему равно произведение двоичных чисел 10002 и 1012?
Выберите один из 4 вариантов ответа:
1) 1000112. 3) 1010002.
2) 100012. 4) 11001012.
var a:integer;
function F(a:integer):integer;
var Max,x:integer;
begin
Max:=a mod 10;
while a>0 do begin
x:=a mod 10;
a:=a div 10;
if x>Max then Max:=x;
end;
F:=Max;
end; {F}
function F1(a:integer):integer;
var Min,x:integer;
begin
Min:=a mod 10;
while a>0 do begin
x:=a mod 10;
a:=a div 10;
if x<Min then Min:=x;
end;
F1:=Min;end; {F1}
begin
Write('Введите число-');
readln(a);
Writeln('Максимальная цифра в числе: ',F(a));
Writeln('Минимальная цифра в числе: ',F1(a));
end.
Пример:
Введите число-31842
Максимальная цифра в числе: 8
Минимальная цифра в числе: 1
1.
begin
for var i := 1 to 9 do begin
for var j := 0 to 9 do write(i*10+j, ' ');
writeln;
end;
end.
2.
var
n, s, p : integer;
begin
write('введите число n=');
readln(n);
p := 1;
while n > 0 do begin
s += n mod 10;
p *= n mod 10;
n := n div 10;
end;
writeln('сумма ', s);
writeln('произведение ', p)
end.
3.
var
a : integer;
begin
write('введите 6-и значное число: ');
readln(a);
if (a mod 10 = a div 100000) and ((a div 10) mod 10 = (a div 10000) mod 10) and ((a div 100) mod 10 = (a div 1000) mod 10) then writeln('палиндром') else writeln('нет');
end.