циклы

[Кирилл17]

найти первое значение функции y=1/e (в степени X) удовлетворяющей условию y<0.01 при изменении x с шагом 0,1. Определить на каком шаге это произойдет

[MalexG]

А с какой стартовой величины начинать? И куда на уменьшение, на увеличение?

[Кирилл17]

Сообщение от MalexG

А с какой стартовой величины начинать? И куда на уменьшение, на увеличение?

я не знаю. как задание есть так я его и переписал

[puporev]

uses crt;
var x,xn,y:real;
      i:integer;
begin
clrscr;
write('xn=');readln(xn);//введем начальное значение х
x:=xn-0.1; //отступим на шаг, чтобы правильно все подсчитать
y:=1/exp(x);//формула
i:=0; //счетчик=0
while y>=0.01 do //пока у больше или равен 0,01
  begin
   x:=x+0.1; //увеличиваем х
   y:=1/exp(x);//считаем у
   i:=i+1; //считаем количество итераций
  end;
writeln('y=',y:0:5,'  i=',i);
readln
end.

[dinamit768]

Люди Help!!!
1. Дано число N и M следующих за ним вещественных чисел. Вывести сумму и произведение чисел из данного набора.
2. Дано целое число N и набор из M ненулевых целых чисел. Вывести в том же порядке номера всех нечетных чисел из данного набора и количество K таких чисел.
3. Дано целое число K,N и M следующих за N чисел. Вывести количество чисел в наборе, меньших K.