Вычисляемая последовательность чисел по формуле: 1\((sqrt(n^2 + 1) + sqrt(n^2 - 1 )) , где n=1, 2, определить при каком n два соседних числа будут отличаться друг от друга на величину не превосходящую е. вычислить сумму м таких чисел начиная с к-ого.

Var k, m, e, a, b, c: real;     n: integer; begin       readln(e);       readln(k);       for n : = 1 to 1000 do       begin           b : = 1/((sqrt(sqr(n) + 1) + sqrt(sqr(n) - ;           if ((a - b > e) and (c < = k)) then           begin             m : = m + a + b;             c : = c + 1           end;           a : = b;       end;       writeln(a); end.как-то так вроде =)

Компилятор или интерпретатор; интегрированная среда разработки; средства создания и редактирования текстов программ; обширные библиотеки стандартных программ и функций; отладочные программы, т.е. программы, находить и устранять ошибки в программе; "дружественная" к пользователю диалоговая среда; многооконный режим работы; мощные графические библиотеки; утилиты для работы с библиотеками встроенный ассемблер; встроенная справочная служба; другие специфические особенности. популярные системы программирования — turbo basic, quick basic, turbo pascal, turbo c.

ответ: 16

1-й способ.

переводим 191 в двоичную систему:

выполняем команды:

1.   10111111 -> 01011111

1.   01011111 -> 00101111

2. 00101111 + 100 = 00110011

1. 00110011 -> 00011001

1. 00011001 -> 00001100

2. 00001100 + 100 = 00010000

переводим результат в десятичную систему:

2-й способ.

сдвиг на один разряд вправо в двоичной системе означает целочисельное деление на 2 (остаток отбрасываем). выполняем команды:

1. 191 : 2 --> 95

1. 95 : 2 --> 47

2. 47 + 4 = 51

1. 51 : 2 --> 25

1. 25 : 2 --> 12

2. 12 + 4 = 16