Помогите разобратся з задачей

[igormyakota]

Вот сама задача

[Максим]

Вам не надо эту задачу решать, лучше идите в армию.

[NTFS]

250 рублей, бинарник высылаю сразу, исходник - после оплаты через терминал или электронные кошельки.

[bormant]

Кстати, если правильно путаю, задача в исходной постановке решения не имеет, равно как и любая другая с отрицательной точностью (в условии указано, что eps<0).

[NTFS]

Теоретики... это же типовые задачи, их пять-шесть сотен на всю Россию. Что с того, что в данном условии ошибка?

[bormant]

Опечатки опечатками, но и позиция "у меня решение правильное, это условие неверное" в некоторых случаях чревата, как минимум указанием на то, что решения поставленной задачи не приведено, а приведенное решение не является решением поставленной задачи.
В качестве наглядного примера -- в ситуации, когда у заданного квадратного уравнения нет корней, правильным ответом является "нет корней", а не решение похожего уравнения с противоположным знаком перед a, b или c по мотивам "опечатки".
То есть, все допущения, сделанные в отношении условия, а также причины таких допущений, следует оговаривать явно.

[NTFS]

Я открою страшный секрет - за исключением пары московских и одного секретного сибирского ВУЗа, (а также редчайших единичных исключений по стране) эти задачи никто толком не проверяет - нет времени и желания. Все, что нужно клиенту - это текст на заданном языке, который компилируется, содержит знакомые конструкции и выдает что-то похожее на правду в консоль/гуй. Для проверок заданий по подобному профилю - нужна система (как технологическая, так и организационная), которую никто делать не будет, поскольку все толковые преподаватели давно свалили в MIT/другие приличные вузы, менее толковые - ушли во фриланс, а выполнять учебный план остались (опять же, за редчайшими единичными исключениями) самые бестолковые.

Топикстартеру - по случаю хорошего настроения и чудесной погоды, снижаю цену до 200 руб.

[igormyakota]

var a,xn,x0,e:real;
begin
write('a>=0 a=');
read(a);
write('e>0 e=');
read(e);
x0:=1;
xn:=0;
while abs(xn-x0)>e do
begin
xn:=x0;
x0:=(xn+a/xn)/2;
end;
writeln('xn=',xn:0:5);
write('x^0.5=',sqrt(a):0:5);
end.
так ??? а не могли бы помочь з блок схемой ??