Поделитесь своими знаниями, ответьте на вопрос:
Задание 1. Переведите в десятичную систему счисления следующие числа из ... системы счисления. № варианта ... двоичной ... восьмеричной ... шестнадцатеричной 1 100011 220, 7 А9ЕД 2 11011, 01 35, 6 15А 3 101011 40, 5 2FA 4 111011.101 13, 7 ЗС, 1 5 110101 27, 31 2FB 6 101001, 11 37, 4 19, А 7 100100, 1 65, 3 2F, A 8 1011101 43, 5 1С, 4 9 101011, 01 72, 2 AD, 3 10 101101, 110 30, 1 38, В Задание 3. Преобразуйте десятичные числа в двоичные и восьмеричные. ]№ варианта № варианта 1 327 6 265 2 259 7 411 3 428 8 409 4 431 9 356 5 146 10 507 Задание 4. Преобразуйте двоичные числа в восьмеричные и десятичные. № варианта № варианта 1 100000 6 1010101 2 100100 7 111001 3 101010 8 111100 4 110101 9 100111 5 100011 10 110010 № варианта № варианта j 1 0, 625 6 0, 75 2 0, 28125 7 7/16 3 0, 078125 8 3/8 4 0, 34375 9 1/4 5 0.25 10 0, 515625 4. Содержание отчета. Отчет должен содержать: Название работы. Цель работы. Задание и его решение. Вывод по работе. 5. Контрольные вопросы Что такое система счисления? Что такое основание системы счисления? Что такое непозиционная система счисления? Что такое позиционная система счисления? № варианта в двоичную в восьмеричную в шестнадцатеричную 1 36 197 681 2 197 984 598 3 84 996 368 4 63 899 435 5 96 769 367 6 99 397 769 7 98 435 899 8 69 368 996 9 397 598 984 10 435 681 19
2) 15 13 9 3 -5 -15 -27 -41 -57 -75
3) 6
4) for i := 1 to 10 do
begin
if (a[i] > 0) then
a[i] := i
else a[i] := 0;
write(a[i], ' ');
end;
код полностью
var
a: array[1..10] of integer;
i, k: integer;
begin
for i := 1 to 10 do
begin
a[i] := 15 - i * (i - 1);
write(a[i], ' ');
end;
writeln;
K := 0;
for i := 1 to 10 do
if a[i] < 0 then
k := k + 1;
Write(k);
writeln;
for i := 1 to 10 do
begin
if (a[i] > 0) then
a[i] := i
else a[i] := 0;
write(a[i], ' ');
end;
end.