Var a:integer;
begin
write('a = ');
readln(a);
writeln('Укажите направление перевода:');
writeln('1 - бит -> байт, Кбайт, Мбайт');
writeln('2 - байт -> бит, Кбайт, Мбайт');
writeln('3 - Кбайт -> бит, байт, Мбайт');
writeln('4 - Мбайт -> бит, байт, Кбайт');
readln(n);
case n of
1: writeln(a,' бит = ',a/8,' байт, ',a/8/1024,' Кбайт, ',a/8/1024/1024,' Мбайт');
2: writeln(a,' байт = ',a*8,' бит, ',a/1024,' Кбайт, ',a/1024/1024,' Мбайт');
3: writeln(a,' Кбайт = ',a*8*1024,' бит, ',a*1024,' байт, ',a/1024,' Мбайт');
4: writeln(a,' Мбайт = ',a*8*1024*1024,' бит, ',a*1024*1024,' байт, ',a*1024,' Кбайт');
else writeln('Неверный номер');
end;
end.
Пример:
a = 2048
Укажите направление перевода:
1 - бит -> байт, Кбайт, Мбайт
2 - байт -> бит, Кбайт, Мбайт
3 - Кбайт -> бит, байт, Мбайт
4 - Мбайт -> бит, байт, Кбайт
3
2048 Кбайт = 16777216 бит, 2097152 байт, 2 Мбайт
Разрядность процессора – это величина, которая определяет размер
машинного слова, то есть количество информации, которой процессор
обменивается информацией с оперативной памятью.
В наши дни
первым фактором можно приниберечь, т.к. все современные процессоры
способны одинаково работать, как в 32-х, так и в 64-х битном режиме.
Ещё раз подчёркиваю, что никакой разницы нет.
Что касается оперативной памяти, то в этом и заключается вся суть.
Дело
в том, что каждая ячейка (8 бит = 1 байт) ОЗУ имеет адрес и в 32-х
битной системе он записывается в виде двоичного кода длиной в 32
символа.
Из простых математических преобразований получаем 2^32=4294967296 байт = 4 ГБ.
То
есть, в 32-битной системе, ячейки памяти условно расположенные за
пределом 4ГБ просто не получат адреса и не будут использоваться.
Если
использовать 64-х битную систему, то размер адресуемой памяти 2^64=
18446744073709551616. Разница, как говорится, видна не вооружённым
взглядом.
Из этого всего следует вывод, что ключевым фактором
является размер ОЗУ: меньше 4 ГБ стоит выбрать 32-разрядную, больше 4 ГБ
– 64-разрядную.
Соответственно, максимальная разрядность 64-разрядная
Ответ:выход их лабиринта
Объяснение:знак выход избушка лабиринт а
Ответ:
program pred;
var
n, i, s: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
s := 0;
i := 1;
while i <= n do begin
if i mod 2 = 0 then
s := s + i;
Inc (i);
end;
WriteLn ('Сумма = ', s);
ReadLn;
end.
- - - - - - - - - - - - - -
program post;
var
n, i, s: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
s := 0;
i := 1;
repeat
if i mod 2 = 0 then
s := s + i;
Inc (i);
until i > n;
WriteLn ('Сумма = ', s);
ReadLn;
end.