Программа с использованием подпрограмм - функций - PascalABC

[Norbes]

z=1-S/2 где S=∑_(n=0)^∞ 2n sqr(an-bn)


an=1/2(an-1+bn-1)

bn=√(an-1*bn-1)

Значение a0 и b0 заданы. Расчёт закончить при выполнении условия sqr(an-bn)<Q

Дано: a0=3
b0=2
Q=10-5

Помогите пожалуйста
Norbes на форуме Добавить отзыв для Norbes Пожаловаться на это сообщение