Найти наибольшее целое нечетное положительное число Х, удовлетворяющее заданному условию - Pascal ABC

Формулировка задачи:

Написать программу, позволяющее найти и вывести на экран наибольшее целое нечетное положительное число Х, удовлетворяющее условию: 0,7e(в степени х)-150x<12,375

Код к задаче: «Найти наибольшее целое нечетное положительное число Х, удовлетворяющее заданному условию - Pascal ABC»

textual
var
  n, k, i: integer;
 
begin
  repeat
    write('Введите число n (n>1): ');
    readln(n);
  until n > 1;
  for i := 1 to n do
    //0,7e(в степени х)-150x<12,375
    if 0.7 * exp(i) - 150 * i < 12.375 then
      k := i;
  writeln('Найденное число = ', k);
  readln;
end.

13   голосов, оценка 4.154 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы