1. Перевод из килобайтов в биты (1 кБ = 1024 * 8 бит = 8192 бита):
173,25 кБ = 173,25 * 8192 бита<span> = 1419264 бита
</span>
2. Перевод из байтов в биты (в одном байте 8 бит):
16,75 Б = <span>16,75 * 8 бит = 134 бита
</span>
3. Перевод из гигабайтов в терабайты (1 ТБ = 1024 ГБ):
6363 ГБ = 6363 / 1024 ТБ = 6,2138671875 ТБ
4. Перевод из гигабайтов в мегабайты (1 ГБ = 1024 МБ):
<span>27,5 ГБ = 27,5 * 1024 МБ = 28160 МБ
5. В этой фразе 41 символ. Значит, объём для её хранения равен:
41 * 16 бит = 656 бит = 656 / 8 Б = 82 Б
</span>
Не вижу и малейшего отношения к программированию.
Что именно вы хотите видеть в программном коде ?
Ответ:
Алеша, Боря, Витя.
Алеша с кем-то идет к троллейбусу, когда подходит с ним к остановке появляется третий друг, который кричит из окна Боре (Значит Алена шел с Борей к троллейбусу). Исходя из этого Витя ездит на автобусе. Боря на троллейбусе (ибо он проводил друга до остановки, значит сам не поехал на троллейбусе, т.к. тогда было бы "вместе" шли или подобное), а значит троллейбус ему не нужен, а нужен трамвай.
Ответ:
Витя - автобус
Боря троллейбус
Алеша - трамвай.
Все. Что тут еще программировать, а ? это задача только на логику, а не на программирование..
Const
n = 20;
var
a: array[1..n] of integer;
i,j,k,m,li,ri,mi,s,x: integer;
begin
Write('Введите ключ поиска (0-49): '); Read(x);
{ заполнить массив значениями }
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(50);
Write(a[i]:3);
end;
Writeln;
{ сортировка }
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin s := a[j]; a[j] := a[j+1]; a[j+1] := s end;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i]:3);
Writeln;
{ бинарный поиск }
li:=1; ri:=n; k:=0;
while li<ri do begin
mi:=(li+ri) div 2;
if a[mi]<x then li:=mi+1 else ri:=mi;
Inc(k)
end;
if a[ri]=x then m:=ri else m:=0;
{ вывод результатов }
if m>0 then Writeln('Найден элемент № ',m,'; число шагов равно ',k)
else Writeln('Такого элемента в массиве нет');
end.
<em><u>Тестовое решение:</u></em>
Введите ключ поиска (0-49): 25
Элементы массива
33 47 1 28 31 36 15 25 49 35 30 48 24 0 39 35 7 20 25 0
Отсортированный по возрастанию массив
0 0 1 7 15 20 24 25 25 28 30 31 33 35 35 36 39 47 48 49
Найден элемент № 8; число шагов равно 4
<em><u>Вариант с процедурами</u></em>
const
n = 20;
type
V=array[1..n] of integer;
procedure SortBySelect(var a:V);
{Сортировка выбором}
var
i, j, k: integer;
x: integer;
begin
for i := 1 to n do
begin
k := i;
x := a[i];
for j := i+1 to n do
if a[j]<x then
begin
k := j;
x := a[j]
end;
a[k] := a[i];
a[i] := x
end
end;
procedure BinSearch(var a:V;key:integer;var k,m:integer);
var
li,ri,mi:integer;
begin
li:=1; ri:=n; k:=0;
while li<ri do begin
mi:=(li+ri) div 2;
if a[mi]<key then li:=mi+1 else ri:=mi;
Inc(k)
end;
if a[ri]=key then m:=ri else m:=-1
end;
var
a:V;
i,k,m,x: integer;
begin
Write('Введите ключ поиска (0-49): '); Read(x);
{ заполнить массив значениями }
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(50);
Write(a[i]:3);
end;
Writeln;
SortBySelect(a); { сортировка выбором }
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i]:3);
Writeln;
BinSearch(a,x,k,m); { бинарный поиск }
if m>0 then Writeln('Найден элемент № ',m,'; число шагов равно ',k)
else Writeln('Такого элемента в массиве нет');
end.
<em><u>Тестовое решение:</u></em>
Введите ключ поиска (0-49): 32
Элементы массива
46 24 32 32 23 32 4 26 47 4 44 8 39 8 15 39 11 45 5 16
Отсортированный по возрастанию массив
4 4 5 8 8 11 15 16 23 24 26 32 32 32 39 39 44 45 46 47
Найден элемент № 12; число шагов равно 5
