Информатика, вопрос задал Master3097 , 7 лет назад

Получить наименьшее положительное n, при котором неравенство истинно

Решить на Pascal с помощью цикла с предусловием While

Приложения:

Ответы на вопрос

Ответил Helper211
0

Ответ:

var n: integer;

begin

n:=1;

while (n*n*n*n-(1500/n)<0) do

 begin

 n:= n+1;

 end;

writeln('Наименьшее положительное n, при котором неравенство истинно: ',n);

end.

Если требовалось найти наименьшее вещественное положительное n, что вряд ли, то слово 'integer' заменяете на 'double' в первой строке, а в седьмой "n:= n+1;" заменяете на "n:=n+0.0001" с тем количеством нулей, которое будет соответствовать заданной точности.

Ответил Helper211
0
Потому что при n=1 неравенство ложно, а с увеличением n функция растет.
Новые вопросы