<span>Переводим целую часть числа. Заменяем каждый разряд на код из таблицы.</span>
Двоичная СС Восьмеричная СС
000 0
001 1
010 2
011 3
100 4
101 5
110 6
111 7
<span>Получаем число:</span>
<span>774</span>8<span> = 111111100</span>2
Переводим дробную часть числа.
Получаем число:
08 = 0002
Переводим целую часть числа. Для этого разделим исходный код на группы по 4 разряда.
111111100 = 0001 1111 1100
Затем заменяем каждую группу на код из таблицы.
Двоичная СС шестнадцатеричная СС
0000 0
0001 1
0010 2
0011 3
0100 4
0101 5
0110 6
0111 7
1000 8
1001 9
1010 A
1011 B
1100 C
1101 D
1110 E
1111 F
<span>Получаем число:</span>
<span>0001 1111 1100 </span>2<span> = 1FC</span>16
См фото
=====================================
const n=10;
var a: array[1..n] of integer;
i,s: integer;
begin
s:=0;
write('massiv: ');
for i:=1 to n do begin
a[i]:=random(201)-100;
write(a[i],' ');
s:=s+a[i];
end;
writeln;
write('sum=',s);
end.
Program Pr1;
uses crt;
var r:integer;
b,a:real;
Begin
clrscr;
writeln('Введите R и a');
readln(r,a);
b:=sqrt(a-(a/2));
if (b<r) and (a/2<r) then writeln('Поместится')
else writeln('Не поместится');
end.