4. <span>10 1101 0011(2)=1*2^9+0*2^8+1*2^7+1*2^6+0*2^5+1*2^4+0*2^3+0*2^2+1*2^1+1*2^0=
512+128+64+16+2+1=723
</span><span>1323(8)= 1*8^3+3*8^2+2*8^1+3*8^0=512+192+16+3=723
</span><span>2D3(16)= 2*16^2+16*16^1+3*16^0=512+208+3=723
</span>
5.+<span>10 0011 1110(2)
</span><span> 1011 1111(2)=
</span> 111111 1111
Ответ:
Дана длина L окружности. Найти ее радиус R и площадь S круга, ограниченного этой окружностью, учитывая, что L = 2·π·R, S = π·R2. В качестве значения π использовать 3.14.
Объяснение:
1. Добавлено 6 бит, 252₁₀=1111 1100₂
2. Судя по маске получим 64 подсети,
3. Количество битов узлов подсети - 2
4. В каждой подсети по 2 узла + адрес подсети + широковещательный адрес
5. Сетевой адрес этой подсети 128.107.0.52
6. Адрес IPv4 первого узла в этой подсети 128.107.0.53
7. Адрес IPv4 последнего узла в этой подсети 128.107.0.54
8. Широковещательный адрес IPv4 в этой подсети 128.107.0.55
1. если слово из 2-х букв
var a,b:char;
begin
readln(a,b);
writeln(a,b);
writeln(b,a);
writeln(a,a);
writeln(b,b);
end.
2, если не из двух букв
тут сначала вводится n - максимальная длина слова, а уже потом 2 буквы
var a,b:char;
n:integer;
procedure gen(i:integer;s:string);
begin
if i>n then exit;
if i<>0 then writeln(s);
gen(i+1,s+a);
gen(i+1,s+b);
end;
begin
readln(n);
readln(a,b);
gen(0,'');
end.
Через while:
var
s, x, i: integer;
sr: real;
begin
s:=0; i:=0;
while i < 10 do
begin
readln(x);
s := s + x;
inc(i);
end;
sr := s / i;
writeln(sr);
end.
Через repeat:
var
s, x, i: integer;
sr: real;
begin
s:=0; i:=0;
repeat
readln(x);
s := s + x;
inc(i);
until i = 10;
sr := s / i;
writeln(sr);
end.
Через For:
var
s, x, i: integer;
sr: real;
begin
s:=0;
for i:=1 to 10 do
begin
readln(x);
s := s + x;
end;
sr := s / i;
writeln(sr);
end.