20.01.2007, 22:05
общий
это ответ
Здравствуйте, SHTEP!
Решение задачи (Кстати гляньте, в задании корень квадратный из (n*n-1) или (n*(n-1))) - соответственно скорректируйте:
<code>
program pr1;
const E=0.0001;
var b:real;
n:integer;
function A(n:integer):real;
begin
a:=(b*n)/(sqrt(n*n-1)+sqrt(n*n+1));
end;
begin
write(‘b=‘);
readln(b);
n:=1;
repeat
n:=n+1;
until (abs(A(n)-A(n-1))<E);
writeln(A(n):9:5);
readln;
end.
</code>
Удачи!