Program znanija;
const n = 5;
var
a:array[1..n] of integer;
premax, premaxi, maxi, max, i, b:integer;
begin
max := -1000;
write('Введите массив из ', n, ' элементов:');
for i := 1 to n do
begin
read(b);
a[i] := b;
if b > max then
begin
premax := max;
premaxi := maxi;
max := b;
maxi := i;
end;
end;
writeln('Максимальный элемент №1: ', max, ',его номер ', maxi);
writeln('Максимальный элемент №2: ', premax, ',его номер ', premaxi);
end.
Ответ:
48 бит = 6 байт
160 бит = 20 байт
512 байт = 0.5 КБ
2048 КБ = 2 МБ
1024 КБ = 1 МБ
81920 бит = 10 КБ
Когда бит переводим в байт, мы делим на 8, когда байты в значения выше, делим на 1024, допустим байты в килобайты, мы число байтов делим на 1024. Если же нам надо перевести с большего в значение ниже или еще ниже, мы умножаем на 1024
А если надо перевести в биты, нужно умножить на 8
Var
a,b,c:integer;
procedure main(a,b,c:integer);
var
i,max,nod:integer;
begin
if (a>b) and (a>c) then
max:=a
else
if (b>a) and (b>c) then
max:=b
else
max:=c;
nod:=1;
for i:=1 to max do
begin
if (a mod i = 0) and (b mod i = 0) and (c mod i = 0) then
nod:=i;
end;
writeln(nod);
end;
begin
read(a,b,c);
main(a,b,c);
end.
1.5 минуты ето 90с
потом нужно 90*256 000=23040000 бит
23040000:8192=2812,5