1010 1001 (это дополнительный код)
Так. Ну для начала небольшая табличка простейших чисел (3-9);
<u>00=0;</u>
<u>01=1;</u>
<u>02=2;</u>
<u>10=3;</u>
<u>11=4;</u>
<u>12=5;</u>
<u>20=6;</u>
<u>21=7;</u>
<u>22=8;</u>
И так, ситуация у нас почти такая же, как и из двоичной в восмеричную, только мы берем не 3 цифры, а 2. Вот например: 102211<u>02 </u>= (смотрим по таблице(2));
1022<u>11</u> = (смотрим по таблице(4));
10<u>22 </u>= (смотрим по таблице(8));
<u>10</u> = (смотрим по таблице(3));
Итоговое число(снизу вверх)=10221102(3)=3842(9);
256 × 1024 =262144 килобайт
262145 × 1024 = 268435456 байт
268435456 × 8 = 2147483648 бит
Program Pr1;
uses crt;
var f,c:real;
begin
clrscr;
c:=15;
while c<=30 do begin
f:=c*1.8+32;
writeln(c,'-Цельсия; Фаренгейт - ',f);
c:=c+1;
end;
end.
2)
Program Pr1;
uses crt;
var stroka:string;
i,v,x:integer;
Begin
clrscr;
readln(stroka);
x:=0;
v:=0;
for i:=1 to length(stroka) do begin
if stroka[i]<>' ' then v:=v+1;
if (stroka[i]='т') or (stroka[i]='Т') then x:=x+1;
end;
writeln('Количество букв- ',v,' Количество букв Т -',x);
end.
Program n_1;
uses math;
var a:array [1..6] of integer; i: integer;
begin
for i:=1 to 6 do begin read (a[i]); a[i]:=a[i]*2; end;
writeln;
for i:=1 to 6 do write(a[i], ' ');
end.