Это цикл. Начальное значение 1. Цикл будет выполняться 4 раза.
1. 1+1*2=3, теперь f равно 3.
2. 3+2*2=7, теперь f равно 7.
3. 7+3*2=13, теперь f равно 13.
4. 13+4*2=21.
После выполнения алгоритма f будет равно 21.
Всё правильно кроме 4,7,9
4)В
7)В
9)В
000 R = 0
001 R = 0
010 R = 1
011 R = 1
100 R = 0
101 R = 0
110 R = 0
111 R = 0
Код программы:
Var A,B,C : Boolean;
Begin
For A:=False to True do
For B:=False to True do
For C:=False to True do Writeln(Ord(A),Ord(B),Ord(C),' R = ',ord((not A) and (B or not C) and B));
end.