//правильно вот так:
Program al;
var c: real;
begin
c:=4.75;
writeln('c=',c);
end.
1) 52-28
52 прям.код 0 0110100 (первый ноль знак числа +)
- 28 пр. код 1 0011100 (1 - знак "-")
- 28 об.код 1 1100011 (образуется путем инвертирования)
-28 доп. код 1 1100100 (<span>образуется путем прибавления 1 к младшему разряду обр.кода)
</span>0 0110100 +<span>1 1100100=1 0 0011000 (1 -перенос отбрасывается)
</span>+<span>11000 = 16+8=24 (10)
</span>2) 14 пр.код 0 0001110
-81 пр.код 1 1010001
-81 обр.код 1 0101110
-81доп. код 1 0101111
0 0001110+1 0101111= 1 0111101 это допол.код -67
При переводе в прямой биты результата инвертируются и к младшему разряду + 1
1 1000010+1=1 1000011= - 64+3= - 67
Const n=12;
var c : array[1..n] of integer;
i : integer;
begin
writeln('Исходный массив:');
for i:=1 to n do begin
write('c[',i,']=');
readln(c[i]);
end;
writeln;
for i:=1 to n do write(c[i],' ');
end.
Пример:
<span>Исходный массив:
c[1]=15
c[2]=78
c[3]=20
c[4]=94
c[5]=37
c[6]=41
c[7]=72
c[8]=55
c[9]=86
c[10]=29
c[11]=89
c[12]=13
15 78 20 94 37 41 72 55 86 29 89 13</span>
Алгоритм-это набор инструкций.описывающий порядок действий исполнителя для достижения некоторого результата