1) Ошибка "Нельзя преобразовать тип real к integer"
При исправлении
var
a, b: real;
begin
a := 26 mod 11;
b := 3;
b := 6 + a * b;
a := b / 3 * a;
writeln(a);
end.
выдает 24
2) 52
Const
N = 5;
var
i: integer;
a: array[1..N * 2 + 1] of integer;
begin
writeln('Исходный массив: ');
for i := 1 to 2 * N do
begin
a[i] := Random(99) + 1;
write(a[i] : 5);
end;
for i := 2 * N + 1 downto N + 1 do
a[i] := a[i - 1];
a[N + 1] := 0;
writeln();
writeln('Полученный массив: ');
for i := 1 to 2 * N + 1 do
write(a[i] : 5);
end.
Жесткий диск
он позволяет хранить информацию
Log(2) 32 = 5 Бит вот так это делается
1. при сложении и вычитании двоичных чисел помним о следующих правилах:
0+0=0 0-0 = 0
1+0=1 1-0 = 1
1+1 = 10 1-1 = 0
0+1 = 1 10-1 = 1
1010+10 = 1100
1010-10 = 1000
2.при умножении и делении действуем так же, как в десятичной СС
1010 1010*10 = 10100
<u>* 10</u>
0000
<u>+1010 </u>
10100
1010<u>| 10 </u> 1010/10 = 101<u>
</u>
<u>1010</u> 101
0