var
i,yC,yCm1,eps:real;
begin
readln(eps);
yC:=0;
yCm1:=1;
i:=1;
while abs(yC-yCm1)>=eps do begin
yCm1:=yC;
yC:=(yCm1+1)/(yCm1+2);
i:=i+1;
end;
write(i);
end.
Циклы !!!
[ATTACH]3833[/ATTACH]
Нужно составить две програмки с использование оператора WHILE и с оператором REPEAT
Прошу помочь заранее благодарен
Нужно составить две програмки с использование оператора WHILE и с оператором REPEAT
Прошу помочь заранее благодарен
Пинок в нужном направлении
Код: