Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.02.2014, 12:48   #1
ilyachiz
Новичок
Джуниор
 
Регистрация: 09.02.2014
Сообщений: 1
По умолчанию Наибольшее число

Напишите следующую программу. Ввести с клавиатуры целое число N и найти такое наибольшее целое число K, что будет справедливо неравенство
1 + 2 +3 + … + K – 1 + K < N^2
ilyachiz вне форума Ответить с цитированием
Старый 09.02.2014, 12:56   #2
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Так напишите. В чем проблема?
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 09.02.2014, 20:54   #3
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

1 + 2 +3 + … + K – 1 + K - это арифметическая прогрессия.
Сумма вычисляется по известной формуле.
Записываете неравенство и решаете его математически, затем пишите программный код, если он тут нужен.
Учитывая то, что K - целого типа, используйте округление в меньшую сторону.
От полученного результата надо взять целую часть.


Как-то так, ...
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Старый 09.02.2014, 22:36   #4
009
Пользователь
 
Регистрация: 09.02.2014
Сообщений: 33
По умолчанию

Код:
var n,k,s: integer;
begin
  readln(n);
  while s+k+1<n*n do begin
  s:=s+k+1;
  inc(k);
  end;  
  writeln(k);
end.
009 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
найти наибольшее число, длинночисленная арифметика, с++ rUs_LAN Помощь студентам 6 23.06.2012 03:44
В процессоре KP580BM80A найти наибольшее число таня1 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 19.12.2011 21:04
В процессоре KP580BM80A найти наибольшее число таня1 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 27.11.2011 10:32
Программа с использование массива найти 3-е наибольшее число Tатьяна Помощь студентам 7 01.11.2010 09:23
Наибольшее встречающееся число pechenka. Общие вопросы C/C++ 14 01.02.2009 00:08