3. Определить количество естественных чисел, сумма которых превзойдет 100, если суммирование

3. Найти количество естественных чисел, сумма которых превзойдет 100, если суммирование началось с 1 и каждое слагаемое на единицу больше предшествующего

Задать свой вопрос
Jevelina
оформить как задачку в pascal
Карина
Обычная арифметическая прогрессия, формула суммы знаменита.
1 ответ

PascalABC

var n,s:integer;

begin

 n:=0;

 s:=0;

 while slt;=100 do

 begin

   n:=n+1;

   s:=s+n;

  end;

 writeln('Количество чисел = ',n,'. Их сумма = ',s);

 end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт