код:
var n: integer;
a, x, y1, y2, e: real;
begin
write ('a, x, e = ');
readln (a, x, e);
y1:=a;
y2:=0.5*(y1+x/y1);
n:=2;
while abs(sqr(y2)-sqr(y1)) > e do
begin
inc(n);
y1:=y2;
y2:=0.5*(y1+x/y1);
end;
writeln ('Первый номер члена последовательности = ', n);
end.

ученик445643 ученик445643    2   01.01.2022 16:25    1

Ответы
cratospo234 cratospo234  15.02.2022 08:25

a = float(input('a = '))

x = float(input('x = '))

e = float(input('e = '))

y1 = a

y2 = 0.5*(y1+x/y1)

n = 2

while abs((y2**2)-(y1**2)) > e:

   n += 1

   y1 = y2

   y2 = 0.5*(y1+x/y1)

print('Первый номер члена последовательности = ', n)

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика