Перевести число 623В8Е16 в десятичную, двоичную, восьмеричную систему счисления. Каждое решение оформить в виде таблицы в отдельном документе текстового редактора Microsoft Office Word. В первой строке таблиц объединить ячейки и написать заголовки объектом Word Art «Перевод числа в десятичную систему счисления», «Перевод числа в двоичную систему счисления», «Перевод числа в восьмеричную систему счисления». Заголовки оформить через регистр - ВСЕ ПРОПИСНЫЕ. Оформить заголовки следующим образом: 1. Стиль – паркет, выравнивание - сверху по левому краю, направление текста – снизу вверх; 2. Стиль – перспектива, выравнивание - по центру по правому краю, направление текста – сверху вниз; 3. Стиль – фигурный, выравнивание - снизу по центру, направление текста – 450. Оформить таблицы следующим образом: для перевода в десятичную систему счисления – стиль границы - средний список 1; для перевода в двоичную систему счисления - стиль границы - средняя сетка 2; для перевода в восьмеричную систему счисления – цветная заливка. Для таблицы установить гарнитуру шрифта Aharoni. Сохранить документы в свою папку под именами «Десятичная система», «Двоичная система», «Восьмеричная система» и заархивировать полученный результат.
Ответы
Для облегчения выкладок разделим эти 64 множителя на шесть групп по 10 двоек в каждой и одну последнюю группу из четырех двоек. Произведение 10 двоек, как легко убедиться, равно 1024, а четырех двоек— 16. Значит, искомый результат равен 1024 X 1024 X 1024 X 1024 X 1024 X 1024 X 16.Перемножив 1024 X 1024, получим 1 048 576.Теперь остается найти 1048 576X1048 576X1048 576X16, отнять от результата единицу — и нам станет известно искомое число зерен: 18 446 744 073 709 551615. Известно, что кубический метр пшеницы вмещает около 15 миллионов зерен. Значит, награда шахматного изобретателя должна была бы занять объем примерно в 12 000 000 000 000 куб. м. Кстати, это геометрическая прогрессия и ее нужно было кидать в раздел "математика".
var s : string[50];
i, j, k : word;
f : boolean;
function isSpace(ch : char) : boolean;
begin isSpace := false;
if ch = ' ' then isSpace := true;
end;
begin f := false;
repeat j := 0;
writeln('введите строку, состоящую из 2 слов');
readln(s);
for i := 1 to length(s) do
if isSpace(s[i]) then
begin
inc(j);
k := i; end;
if j =1 then f := true;
until f;
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1));
end.
недавно такую писала :)
i, j, k : word;
f : boolean;
function isSpace(ch : char) : boolean;
begin isSpace := false;
if ch = ' ' then isSpace := true;
end;
begin f := false;
repeat j := 0;
writeln('введите строку, состоящую из 2 слов');
readln(s);
for i := 1 to length(s) do
if isSpace(s[i]) then
begin
inc(j);
k := i; end;
if j =1 then f := true;
until f;
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1));
end.
недавно такую писала :)
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Вычислить значение функции z при одном значение x z=y-x*x y=x-a
Автор: goldenshtein33333
Найдите лишнее слово носок, мозоль, георгин, помидор
Автор: alzheleshikov
