Если лень перебирать вручную, можно воспользоваться программой
var k,l,r,x,f:integer; begin f := 3001; l := 0; r := 65534; x := (l + r) div 2; k := 1; while (x <> f) and (l < r) do begin writeln(k,' ',l,' ',r,' ',x); k := k + 1; if f < x then r := x - 1 else l := x + 1; x := (l + r) div 2 end; writeln(k,' ',l,' ',r,' ',x); end.
Ты понимаешь, что для начала стоит сказать , что в паскале несколько видов повторения бывает. В звисимости от видов и разные механизмы. Например цикл пока или цикл с предусловием он называется: while <условие> do begin <тело цикла> end; до тех пора выполныется условие выполняем цикл.
Цикл с постусловием: repeat <тело цикла> until <условие выхода> повторять какие то действия до тех пор пока не это число указанно например не попадет в условие выхода
1 число: 1
2: 1
3: 1+1=2
4: 2 + 1 = 3
5: 3 + 2 = 5
6: 5 + 3 = 8
7: 8 + 5 = 13
8: 8 + 13 = 21
9: 21 + 13 = 34
10: 34 + 21 = 55
11: 55 + 34 = 89
12: 89 + 55 = 144
13: 144 + 89 = 233
233 * 2 = 466