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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.04.2012, 19:22   #1
АнюточкаАА
Новичок
Джуниор
 
Регистрация: 10.04.2012
Сообщений: 2
Восклицание минимальное число членов сумма которых

Определить минимальное число членов геометрической прогрессии, сумма которых превышает заданное число Р. Паскаль
Такая вот задачка, помогите. пожалуйста хоть чем нибудь
АнюточкаАА вне форума Ответить с цитированием
Старый 10.04.2012, 19:33   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Код:
uses
  CRT;

var
  s, p, b, q, count: integer;

begin
  writeln('Input P');
  readln(p);
  s := 0;
  b := 1;//первый член прогрессии
  q := 3;//знаменатель прогрессии
  count := 0;
  repeat
    s := s + b;
    b := b * q;
    inc(count);
  until s > p;
  writeln(count, ' numbers in sum');
  readln;
end.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Pascal] Определить число столбцов матрицы, сумма элементов которых положительна ilyha93 Помощь студентам 3 06.03.2012 21:37
Сумма членов бесконечного ряда TheFaster Помощь студентам 3 10.05.2011 17:06
Сумма членов паскаль,на экзамене Grundic Помощь студентам 2 26.01.2009 14:05
сумма всех начальных членов ряда, значение которых не меньше заданного числа e, 0<e<1 Арчи Помощь студентам 2 20.12.2008 12:39