Размещено 3 года назад по предмету
Информатика
от and15975300000000000
перевести с паскаля на питон срочно!!!!
код:
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.