1 байт = 8 бит
1 Кбайт = 2^10 байт
1 Мбайт = 2^10 Кбайт
<span>2^26 бит = 2^23 байт = 2^13 Кбайт = 2^3 Мбайт</span>
Если вас интересует ответ, то вот:
12 = 1100
23 = 10111
45 = 101101
Алгоритм перевода прост (обычно используется нижеприведенный), если вас интересует как самому справляться с этим, то необходимо просто делить переводимое число на основание системы счисления (в данном случаи это 2 - основание системы счисления обычно скрыто в её названии - двоичная).
Результат - остатки от деления записанные в обратном порядке (см. картинку).
Заранее спасибо за отметку "лучший ответ" и нажатую кнопочку "спасибо":
- в этом ответе
- в моем профиле
Type mas=Array [1...100] of integer;
var i,n,itre:integer;
a:mas;
begin
readln(n);
for i:=1 to n
do read(A[i]);
for i:=2 to n-1
do if (A[i]>A[i-1]) and (A[i]>A[i+1])
then itre:=i;
for i:=1 to itre-2
do writeln(A[i]);
end.
{ У тебя было <span>two+theere+fore+five, т.е. ты складываешь все тройки четверки и тд и делишь на их количество, т.е. всегда будет "1", нужно посчитать сумму и поделить на количество.
Подправил твой код:}</span>
program p1;
const n=20;
var i,a1,two,theere,fore,five,sum:integer;
sr:double;
a:array[1..20] of integer;
begin
two:=0;
theere:=0;
fore:=0;
five:=0;
sr:=0;
sum:=0;
for i:=1 to n do
begin
read(a1);
sum:= sum + a1;
a[i]:=a1;
if a[i]=2 then
two:=two+1;
if a[i]=3 then
theere:=theere+1;
if a[i]=4 then
fore:=fore+1;
if a[i]= 5 then
five:=five+1;
end;
writeln('Количество двоек: ',two);
writeln('Количество троек: ',theere);
writeln('Количество четвёрок: ',fore);
writeln('Количество пятёрок: ',five);
sr:=(sum)/n;
writeln(sr);
end.
