Program Numbers_Fib;
Var K, N, A, B, C: integer;
Begin
Writeln {введите номер N искомого числа Фибоначчи};
Readln (N);
A:=1; {первый элемент}
B:=2; {второй элемент}
For k:=3 to N do { цикл выполняется для получения элементов с 3-го по N-ый}
begin
C:=B+A; {новый элемент, с номером k}
A:=B; {элемент с номером k-1 становится k-2-м элементом }
B:=C; {элемент с номером k становится k-1-м элементом }
End;
Writeln {N,‘- ый элемент последовательности равен’, C};
End.
? - фальшивая
+ - настоящая
dif - знание о весе фальшивой (больше или меньше)
vs - взвешивание
=> - итог взвешивания
1 откладываем
1) 7? vs 7?
if == => 14+ 7? goto 2)
if <> => 7+ 14? goto
2) 4? vs 4+
if == => 18+ 3? goto 3)
if <> => 10+ 4? goto
3) 2? vs 2+
if == => 20+ 1? goto 4)
if <> => 19+ 2? goto
4) 1? vs 1+
if == => фальшивая та что отложена вначале
if <> => нашли
.ods это электронная таблица (open document spreadsheet)
создаётся через OpenOffice