Question

На языке PascalABC вычислить:
Даны действительные, положительные числа a, b, E, которые задаются вводом. Последовательности , Х1, X2,...; У1, У2,... образованы по закону: X1 = a, Y1 = b, Xn=1/2(Xn-1 + Yn-1), Yn = √(Xn-1•Уn-1). Найти первое n такое, что |Xn -Yn|<E.​

Answer 1

Ответ:var a,b,e,x,y:real;

n:integer;

begin

readln(a,b,e);

x:=a;

y:=b;

n:=1;

while abs(x-y)>=e do

begin

x:=1/2*(x+y);

y:=sqrt(x*y);

n:=n+1;

end;

writeln(n);

end.

возможно это неправильно