Перевод из двоичной системы в восьмеричную очень прост. Влево и вправо от запятой (десятичной точки) двоичное число разбивается на группы, содержащие три разряда (триАды). А затем каждая триада заменяется соответствующей восьмеричной цифрой.
<span>1 100 101(2) = 145(8)</span>
Var r: integer;l: real;BeginWriteln('Введите радиус');Read(r);l:=2*3.14*r;Writeln('Длина окружности - ', l);End.
Есть формула N=2 в степени I
где N = кол-во символов в алфавите, I - кол/во информации (бит) на 1 символ.
1 байт = 8 бит
Значит у тебя 2 в степени 8
<em>2 в степени 8 - это 256, значит твоя кодировка имеет 256 символов. </em>
1)Это с помощью while
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
while i<p do
begin
c:=c * a;
inc(i);
end;
writeln(c);
readln;
end.
2) Это с помощью repeat
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
repeat
c:=c * a;
inc(i);
until i=p;
writeln(c);
readln;
end.
3) Это с помощью for
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1;
for i:=1 to p do
c:=c * a;
writeln(c);
readln;
end.