Найти наибольшее число, чтобы выполнилось условие

@V1ckTor · Регистрация: 15.03.2020

Студворк — интернет-сервис помощи студентам

В общем, есть задача:
Для данного числа y > 0 найти наибольшее натуральное число n, такое что выполняется следующее условие 5n^2+3n > y.

Вроде код для основной части сделал правильно (как минимум работает и выдаёт а).
Но не могу понять, как мне найти наибольшее n, ведь выдаются разные значения a в зависимости от n
Код прилагается:

Pascal
1
2
3
4
5
6
7
8
9
var n,a:integer;
begin
for n:=10 downto 1 do
begin
a:= sqr(5*n)+3*n;
if a>0 then
write('a=',a);
end;
end.

Добавлено через 22 минуты
Вывод а сделал просто для проверки работоспособности кода, так что в итоге это строчка не нужна.

@Puporev · 15.03.2020, 17:08

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

найти наибольшее натуральное число n,

Здесь наверное нужно найти наименьшее n, поскольку наибольшего просто нет.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var y,n,a:integer;
begin
write('Введите натуральное число y=');
readln(y);
n:=0;
a:=0;
while a<y do
 begin
  a:=5*n*n+3*n;
  writeln('a=',a,' n=',n);
  n:=n+1;
 end;
write('a=',a,' n=',n);
end.

@V1ckTor · 15.03.2020, 18:12 **[ТС]**

Да, согласен, условия странные, тоже думал над тем, чтобы сделать наоборот. Пожалуй так и сделаю. Спасибо.

@Cyborg Drone · 16.03.2020, 12:29

Можно без цикла.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?5n^2+3n>y\\5n^2+3n-y>0$

Решим квадратное уравнение:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> n_{1,2}=\frac{-3\pm \sqrt{3^2-4\cdot 5\cdot (-y)}}{2 \cdot 5}=\frac{-3\pm \sqrt{9+20y}}{10}<br />$

Следовательно,

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> n=\lceil (\sqrt{9+20y}-3)/10\rceil<br />$

и, если получится n=0, к нему нужно добавить 1, поскольку по условию n натуральное.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  y, n: longword;
  t: real;
begin
  write('y = ');
  readln(y);
  t := (sqrt(9 + 20 * y) - 3) / 10;
  n := trunc(t);
  if (n = 0) or (frac(t) > 0) then inc(n);
  write('n = ', n);
  readln
end.

Если диалект паскаля позволяет, можно так написать:

Pascal
1
2
3
4
5
6
7
8
9
10
uses
  math;
var
  y: longword;
begin
  write('y = ');
  readln(y);
  write('n = ', ord(y = 0) + ceil((sqrt(9 + 20 * y) - 3) / 10));
  readln
end.

Для Pascal ABC.NET:

Pascal
1
2
3
4
begin
  var n := ceil((sqrt(9 + 20 * ReadLnInteger('y = ')) - 3) / 10);
  print(n = 0 ? 1 : n)
end.

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@V1ckTor 0 / 0 / 0 Регистрация: 15.03.2020 Сообщений: 2
	15.03.2020, 18:12 [ТС]
	Да, согласен, условия странные, тоже думал над тем, чтобы сделать наоборот. Пожалуй так и сделаю. Спасибо. 0

Найти наибольшее число, чтобы выполнилось условие

Решение