Посмотри, по формуле получилось.
а данные будут другие(не как в задании) потому, что дата=Сегодня,
т.е. после даты приема сотрудника +1год стажа.
Program n1;
Var E, a: Real;
N, i: Integer;
Begin
Write('N='); ReadLn(N);
E:=1;
For i:=1 To N Do
Begin a:=a/i;
E:=E+a
End;
WriteLn('E=', E)
End.
Что нужно сделать то? Схему нарисовать, или программу написать?
Крайний левый (восьмой) разряд отводится под знак числа: 0 для положительных и 1 для отрицательных
32 = 00100000
-32 = 10100000 - в прямом коде
= 10100000 - в дополнительном коде
102 = 01100110
-102 = 11100110 - в прямом коде
= 10011010 - в дополнительном коде
126 = 01111110
-126 = 11111110 - в прямом коде
= 10000010 - в дополнительном коде
Порядок перемещения:
0. 0 (начальное положение)
1. 0+3=3
2. 3-2=1 - нечетное
3. 1+4=4
4. 4+3=7
5. 7-2=5 - нечетное
6. 5+3=8
7. 8-2=6
8. 6-2=4 - четное
9. Закрасить
Итого закрашена 1 точка, ответ: 1.